Does anyone have a fix for this
With ACtivesheet
iLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
For i = iLastRow to 1 Step -2
.Rows(i).delete
Next i
End With
--
---
HTH
Bob
(there's no email, no snail mail, but somewhere should be gmail in my addy)
"Just Me" wrote in message
...
When I copy and paste data from my online credit card statement it has a
colored row that seperates each entry. is there any way besides doing it
manually to delete every other row?
|