Select and Delete Every Other Row in Excel Sheet

Hello all

Need to find a Script that would Delete every other row in Excel say starting at Row A1 to Row A100 it would delete A2,A4,A6 and so on

Thanks

Scott