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 vote256 views4 answers
Jwt token vb.net validation
VBA
0 vote260 views1 answer
Vbs exec hidden
VBA
1 vote253 views1 answer
VBA Loop through recordset
VBA
1 vote249 views2 answers
Vba function return array
VBA
0 vote230 views2 answers
Excel vba close without saving
VBA
0 vote246 views1 answer
VBA is form loaded
VBA
0 vote231 views1 answer
Vbscript abs
VBA
0 vote241 views2 answers
Do until loop vba
VBA
0 vote245 views1 answer
Vba dictionary clear
VBA
0 vote242 views1 answer
Vbnet find highest value in chart
VBA