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 vote144 views1 answer
Excel vba populate array with cell values
VBA
0 vote152 views1 answer
Vbscript abs
VBA
4 votes166 views1 answer
Excel vba how to get a range's full address including sheet name
VBA
0 vote152 views1 answer
Reference to a non-shared member requires an object reference
VBA
0 vote158 views1 answer
Vba sort the data Z to A
VBA
1 vote147 views2 answers
Vba function return array
VBA
1 vote163 views1 answer
Excel vba last row of range
VBA
1 vote158 views2 answers
Vba string length
VBA
0 vote162 views1 answer
Open file dialog in vb.net
VBA
0 vote154 views1 answer
Convert unix to date vba
VBA