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 vote229 views1 answer
How to use if condition in time vba
VBA
0 vote186 views1 answer
Vbide vbproject reference
VBA
0 vote193 views1 answer
Vba code to remove leading and trailing spaces
VBA
3 votes242 views1 answer
Vba make long from two words
VBA
3 votes269 views2 answers
Vba date to string
VBA
0 vote236 views1 answer
Vbs exec hidden
VBA
0 vote221 views1 answer
Vbnet add new ecel sheet
VBA
0 vote225 views1 answer
Vba add month to date
VBA
0 vote262 views1 answer
Vba sort multiple columns
VBA
0 vote192 views1 answer
Vba set vs dim
VBA