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

1 vote210 views1 answer
Excel vba first and last row and column in range
VBA
0 vote201 views1 answer
Vbnet access System.InvalidOperationException: 'Update requires a valid UpdateCommand when passed DataRow collection with modified rows.'
VBA
0 vote218 views1 answer
Write listbox to text file vb.net
VBA
0 vote212 views1 answer
Dynamic array vba
VBA
0 vote276 views1 answer
Vba is integer
VBA
0 vote208 views1 answer
Vba loop through table
VBA
0 vote202 views1 answer
How to use VBA to add new record in MS Access?
VBA
0 vote211 views1 answer
Excel vba hide columns
VBA
32 votes507 views2 answers
Excel vba column letter
VBA
8 votes346 views1 answer
Excel vba determine number of elements in a 1D array
VBA