hacked up excel
This is a macro I made this morning to delete every second row in a spreadsheet. Use at your own risk, it’s mainly here for my reference:
Sub Macro1()
‘
‘ Macro1 Macro
‘ Macro recorded 9/11/2006 by Dean Winter
‘
Dim A As Integer
A = 2
‘ A is the row on which to start
Begin:
Rows(A & “:” & A).Select
Selection.Delete Shift:=xlUp
If A = 500 Then GoTo Fin
A = A + 1
GoTo Begin:
Fin:
End Sub