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 vote367 views1 answer
Switch pictures with buttons vb.net
VBA
0 vote353 views1 answer
Vb run command
VBA
0 vote372 views1 answer
Selecttoken em vbnet e json
VBA
0 vote368 views1 answer
Ribbon show/hide
VBA
0 vote362 views1 answer
Vba file chooser
VBA
0 vote399 views1 answer
Excel vba convert cells address
VBA
0 vote410 views1 answer
Excel vba unlock sheet without password
VBA
1 vote344 views1 answer
Excel vba close form escape key
VBA
0 vote343 views1 answer
Open application from vbnet
VBA
0 vote364 views1 answer
Vba type
VBA