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

1 vote309 views1 answer
How to put a gridpain in a vbox
VBA
4 votes287 views2 answers
Excel vba last column with data
VBA
2 votes232 views1 answer
Excel vba pause
VBA
-1 vote281 views1 answer
How to correct a number to 2 decimal places in vba
VBA
0 vote307 views1 answer
VBA
VBA
0 vote285 views1 answer
Convert unix to date vba
VBA
0 vote284 views1 answer
Change form background image vb
VBA
1 vote284 views2 answers
Vba string to date
VBA
0 vote293 views1 answer
Vba round to 2 decimals
VBA
0 vote289 views1 answer
Vba get relative cell address
VBA