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 vote351 views1 answer
Vb streamreader
VBA
0 vote332 views1 answer
Docker vboxmanage not found
VBA
0 vote371 views1 answer
Vba sort the data Z to A
VBA
0 vote345 views1 answer
Vba len variant
VBA
0 vote372 views1 answer
Style percent not found vba
VBA
0 vote366 views1 answer
Rotate image by any angle vb.net
VBA
0 vote343 views1 answer
Vba verticalalignment
VBA
1 vote411 views1 answer
Vba login website
VBA
1 vote351 views1 answer
Vba delete file
VBA
31 votes485 views1 answer
Excel-vba how to convert a column number into an excel column
VBA