I get a type mismatch error on the code below at the IF line. Im trying to
pick out the rows that start with a certain text and delete all of the other
rows to shift cells up. I have it working now by selecting each cell and
evaluating it but it takes a long time to go through 1 or 2 thousand lines.
I'm trying to speed it up a little.
EX. If the first cell in each row starts with One, Two, Three, Four and
Five, I just want the One and Two rows to stay. Can anyone offer any
suggestions?
======================================
For Each c In MyRange
If Left(ActiveCell, 3) < "One" Or "Two" Then
ActiveCell.EntireRow.Delete
End If
Next
======================================
Thanks,
Kevin