I need a macro that will delete every other row in excel.
I tried the following but no luck. If I just create a macro to delete a row
it places a 2 where I have the variable row. I just need to increment the row.
Sub delete()
' delete Macro
'
Dim row, endrow As Integer
row = 2
endrow = 120
'
If row < endrow Then
Rows("row:row").Select
Selection.delete Shift:=xlUp
row = row + 1
End If
End Sub
|