S
Sean
I have the following macro, I am trying to use the * behind the cell criteria
to delete as a wild card! Is there a way to do this, basically the cells
that I want to delete have these characters in them and other characters
behind it, so I wanted to put a wild card at the end? Any Help...
Sub Foo_Test1356()
Dim rng As Range
Dim cll As Range
Dim x As Long
x = 0
Set rng = ActiveSheet.Range("A1:A10000")
For Each cll In rng.Cells
If cll.Text = "----*" _
Or cll.Text = "000*" _
Or cll.Text = "For acct*" Then
cll.EntireRow.Delete
x = x + 1
End If
Next cll
MsgBox "Deleted " & x & " rows."
End Sub
to delete as a wild card! Is there a way to do this, basically the cells
that I want to delete have these characters in them and other characters
behind it, so I wanted to put a wild card at the end? Any Help...
Sub Foo_Test1356()
Dim rng As Range
Dim cll As Range
Dim x As Long
x = 0
Set rng = ActiveSheet.Range("A1:A10000")
For Each cll In rng.Cells
If cll.Text = "----*" _
Or cll.Text = "000*" _
Or cll.Text = "For acct*" Then
cll.EntireRow.Delete
x = x + 1
End If
Next cll
MsgBox "Deleted " & x & " rows."
End Sub