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 vote244 views1 answer
Vba sheet hide unhide
VBA
0 vote242 views1 answer
Vb.net change cursor to wait
VBA
0 vote216 views2 answers
Excel vba prevent save
VBA
0 vote233 views1 answer
Vba pass named range to function
VBA
0 vote231 views1 answer
Vba horizontalalignment
VBA
0 vote235 views2 answers
Do until loop vba
VBA
0 vote235 views1 answer
Excel vba automatic calculation
VBA
25 votes519 views2 answers
Excel vba folder exist
VBA
0 vote232 views1 answer
Vba file chooser
VBA
4 votes223 views2 answers
Vba array length
VBA