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 vote139 views1 answer
Vba string start with
VBA
0 vote150 views1 answer
Excel filter by date not working vba
VBA
0 vote137 views1 answer
Vb check if row has column
VBA
0 vote153 views1 answer
Vba count all row
VBA
2 votes135 views1 answer
Date format for ms chart vb.net
VBA
1 vote143 views1 answer
Vbscript convert ascii code to character
VBA
0 vote133 views1 answer
Vba len variant
VBA
0 vote140 views1 answer
Get month number from month name vbnet
VBA
0 vote136 views1 answer
Excel vba Column Name to Column Number
VBA
0 vote127 views1 answer
Add Formula to Shape Text in VBA
VBA