Deleting text in a column
Hi,
It's no longer a function it's a sub so try this
Sub REMOVESCRATCHINGS()
For x = 200 To 1 Step -1
If Cells(x, 3).Value = "***SCRATCHED***" Then
Rows(x).EntireRow.Delete
End If
Next
End Sub
Mike
" wrote:
Im trying to create a function that will delete the entire row if a
cell contains the text ***SCRATCHED***.
Function REMOVESCRATCHINGS()
Init = Range("C1:C200")
For COUNTER = 1 To 200
If Init = "***SCRATCHED***" Then
Selection.Delete shift:=xlUp
End If
Next
End Function
I get a type mismatch error message
Thanks for any help.
|