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

8 votes217 views1 answer
Excel vba determine number of elements in a 1D array
VBA
1 vote212 views2 answers
Vba string length
VBA
0 vote213 views1 answer
Vba get relative cell address
VBA
0 vote212 views1 answer
Excel vba Column Name from Column Number
VBA
0 vote194 views1 answer
Excel PasteSpecial Format:= can't find the argument
VBA
2 votes204 views1 answer
Vba ado ace sql alias ignored for calculated column
VBA
1 vote210 views1 answer
How to put a gridpain in a vbox
VBA
0 vote202 views1 answer
Vbnet access System.InvalidOperationException: 'Update requires a valid UpdateCommand when passed DataRow collection with modified rows.'
VBA
0 vote202 views1 answer
Vba border weight
VBA
1 vote231 views1 answer
Excel vba convert text YYYYMMDD to date
VBA