Excel delete ever other vba

Sub Delete_Every_Third_Row()
Dim Rng As Range
Set Rng = Application.InputBox("Select the Range (Excluding headers)", "Range Selection", Type:=8)
For i = Rng.Rows.Count To 1 Step -3
If i Mod 3 = 0 Then
Rng.Rows(i).Delete
End If
Next i
End Sub

Source: trumpexcel.com

Similar codes

0 vote228 views1 answer
Excel vba first working day month
VBA
0 vote227 views2 answers
Get excel file from email attachment in vba
VBA
5 votes228 views1 answer
Excel vba low byte from INTEGER
VBA
0 vote220 views1 answer
Check range is in another range vba
VBA
1 vote239 views1 answer
How to remove zeros in excel
VBA
0 vote218 views1 answer
Vba string start with
VBA
0 vote219 views1 answer
Vbnet dynamically change excel sheet name
VBA
11 votes291 views1 answer
Excel vba How to URL encode a string
VBA
4 votes220 views1 answer
Excel vba check cell not empty
VBA
5 votes239 views1 answer
Excel vba second byte from INTEGER
VBA