Hi,
I am trying to write a macro that deletes a row if either the C or D column in that row do not have a / as part of the text.
I tried the following but got an error that the FIND sub or function is not defined. Why? I thought FIND was a built in Function.
Thanks in advance for your help!
Mick
Sub pedro_remove_ios()
Dim LastRow As Long
Dim Counter As Integer
LastRow = Cells.Find(What:="*", LookIn:=xlValues, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1
Counter = LastRow - 4
Do While Counter > 1
If IsError(Find("/", Cells(Counter & "C"))) _
Or IsError(Find("/", Cells(Counter & "D"))) Then
Cells(Counter, "A").EntireRow.Delete
End If
Counter = Counter - 1
Loop
End Sub