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 vote149 views1 answer
Excel vba hide zero values
VBA
0 vote103 views1 answer
How to sort datagridview in vb.net
VBA
8 votes177 views1 answer
Excel vba make integer
VBA
0 vote147 views1 answer
Vba add shape oval
VBA
5 votes152 views1 answer
Excel formula how to create strings containing double quotes
VBA
1 vote146 views1 answer
Excel format cell as kilowatts
VBA
0 vote152 views1 answer
Handling a click event anywhere inside a panel vb
VBA
3 votes164 views1 answer
Vba continue for each loop
VBA
11 votes303 views1 answer
Excel vba How to URL encode a string
VBA
0 vote165 views1 answer
Date as number vb
VBA