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 vote319 views1 answer
Return na vba
VBA
5 votes316 views1 answer
Excel vba low byte from INTEGER
VBA
0 vote304 views1 answer
Vba full date format
VBA
0 vote324 views1 answer
Date as number vb
VBA
0 vote320 views1 answer
VBA is form loaded
VBA
1 vote326 views1 answer
Vba loop through files in folder
VBA
-1 vote294 views1 answer
Text to speech vb.net
VBA
0 vote311 views1 answer
Make all controls in an area not visable vb
VBA
0 vote308 views1 answer
Vba collection key list
VBA
0 vote267 views1 answer
How to sort datagridview in vb.net
VBA