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 vote237 views1 answer
Excel vba cell on change
VBA
1 vote243 views2 answers
Excel vba password protect
VBA
0 vote260 views1 answer
Vba verticalalignment
VBA
0 vote264 views1 answer
Vba code to select image in sheet
VBA
0 vote252 views1 answer
Thread sleep vb
VBA
0 vote261 views1 answer
Priavte sub with multiple handels find sneder
VBA
0 vote234 views1 answer
Vba len variant
VBA
0 vote232 views1 answer
Vba change named range address
VBA
0 vote266 views1 answer
Excel R1C1 mode
VBA
4 votes277 views1 answer
Excel vba how to get a range's full address including sheet name
VBA