Erweiterung beim multiplizieren

Sub multiplizieren()
Dim c As Range
For Each c In Range("J10:J200")
If c  "" Then
c = c * 1
End If
Next
End Sub

Nun und habe ich auch Spalten, da ist statt einer Zahl ein Zeichen drin zB : "-"
diese Zellen möchte ich natürlich auch überspringen, also nur Zellen bearbeiten, die eine Zahl haben. Kann man das nicht so machen, was mache ich denn da falsch :
If c "" And isNumeric Then
Danke mal
Kai