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 vote128 views1 answer
For each item in folder outlook vba
VBA
2 votes126 views1 answer
Excel vba check if string entirely alpha
VBA
0 vote125 views1 answer
Vba compare strings
VBA
0 vote139 views1 answer
Add text to Shape VBA
VBA
8 votes165 views1 answer
Vba convert 2 bytes to an integer
VBA
0 vote122 views1 answer
Arq linux
VBA
0 vote124 views1 answer
Do while not vb.net
VBA
0 vote122 views1 answer
Worksheet.pastespecial textbox
VBA
0 vote126 views1 answer
Remove last 8 characters from string vb
VBA
7 votes118 views1 answer
Vba array declaration
VBA