Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
error 438 on For statement
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, |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Can't fix On Error statement | Excel Discussion (Misc queries) | |||
Runtime Error - Subscript out of range despite On Error statement | Excel Programming | |||
Path/File access error (Error 75) using Name Statement | Excel Programming | |||
Path/File access error (Error 75) after using Name Statement | Excel Programming | |||
On Error Statement | Excel Programming |