Deleting every other row
Alan Beban,
I tried to use your script, but when trying to save it, I receive the error-message:
Missing ; before statement. (line 3, file "Code")
Code:
function deleteEvenRows()
{
Set rng = Sheets("A1:A229").[a1]
For i = 1000 to 2 step -2
rng(i).EntireRow.Delete
Next
}
|