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 vote338 views1 answer
Vbnet cycle through charaters in string
VBA
0 vote350 views1 answer
Excel vba unmerge sheet
VBA
0 vote322 views1 answer
Excel protect cells with formulas
VBA
0 vote326 views4 answers
How to continue formula in below line in vba code
VBA
0 vote304 views1 answer
Quit excel with save changes dialog vb.net
VBA
0 vote316 views1 answer
Replace spaces with underscores vbnet
VBA
0 vote297 views1 answer
Vbide vbproject reference
VBA
0 vote299 views1 answer
Vba string start with
VBA
0 vote344 views4 answers
Vgrive,deb
VBA
1 vote358 views2 answers
Vba find last row in range for certain criteria
VBA