error 438 on For statement

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

It has an object doesn't support this property and I don't see anything wrong.

Sub AddNodeCommas()
Dim SlashPos As Long
Dim myCell As Range

For Each myCell In ActiveSheet.Ranges("D2:D122").Cells
If myCell.Value = "" Then
'skip it
Else
SlashPos = InStr(1, myCell.Value, "/", vbTextCompare)
If SlashPos > 0 Then
'/was found, so skip it
Else
myCell.Value = myCell.Value & ","
End If
End If
Next myCell

End Sub

tia,
 
Range S

However, this might be a little more efficient.
Sub ifslash()
lr = Cells(Rows.Count, "d").End(xlUp).Row
For Each c In Range("d2:d" & lr)
If InStr(c, "/") < 1 And c <> "" Then c.Value = c & ","
Next
End Sub
 
Back
Top