I need someone to fill in the blanks:

Sub AddNodeCommas()

For each C in Intersect Range("D2:D122")
if c =*"/"
substitute(c,c,c&",")
Else

Next
End Sub

What I want to do is add a comma to the end of the text in the cells if the
cell does not contain a / (forward slash). I got a syntax error in here.
this time I didn't forget the "'s

tia,