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 vote216 views1 answer
Vbnet line chart showing extra space
VBA
0 vote222 views1 answer
How to make a a msgbpx in vbs
VBA
0 vote235 views1 answer
Excel vba protect sheet
VBA
25 votes486 views2 answers
Excel vba folder exist
VBA
0 vote207 views1 answer
Vb.net visible property dgv collumn not working
VBA
0 vote196 views1 answer
Afficher un message d'erreur vba
VBA
8 votes342 views1 answer
Excel vba make a short integer from two bytes
VBA
1 vote208 views1 answer
Export datagridview to excel vb.net
VBA
8 votes328 views1 answer
Excel vba determine number of elements in a 1D array
VBA
0 vote151 views1 answer
How to sort datagridview in vb.net
VBA