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 vote129 views1 answer
Add control vb
VBA
1 vote132 views1 answer
How to put a gridpain in a vbox
VBA
-1 vote135 views1 answer
How to correct a number to 2 decimal places in vba
VBA
0 vote132 views1 answer
Vba declare 64-bit ptrsafe
VBA
0 vote137 views1 answer
Prive sub enter clicked vb
VBA
0 vote128 views1 answer
Enable macros on opening workbook vba
VBA
0 vote124 views1 answer
Enter into cells data grid view
VBA
0 vote123 views1 answer
How to use VBA to add new record in MS Access?
VBA
0 vote148 views1 answer
Excel vba unlock sheet without password
VBA
0 vote135 views1 answer
Menus act like radio buttons vb.net
VBA