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 vote329 views1 answer
Excel vba range contains
VBA
0 vote340 views1 answer
Write listbox to text file vb.net
VBA
0 vote331 views1 answer
Vba len variant
VBA
0 vote323 views1 answer
Excel R1C1 mode
VBA
0 vote310 views1 answer
How to make a if statement with vbs
VBA
-1 vote322 views1 answer
Text to speech vb.net
VBA
2 votes353 views1 answer
Vba file from path
VBA
1 vote323 views2 answers
Vba remove first 2 characters from string
VBA
0 vote349 views1 answer
Vba listbox remove all items
VBA
0 vote375 views1 answer
Supprimer la valeur de celule vba
VBA