error 438 on For statement

[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("D2122").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,

 

[Don Guillett]

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