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 vote199 views1 answer
Iterate all file in a folder vba
VBA
0 vote180 views1 answer
Loop through each cell in dgv vbnet
VBA
0 vote183 views1 answer
Discern between file and folder given path vb.net
VBA
4 votes179 views1 answer
Excel vba how to reset usedrange
VBA
0 vote204 views1 answer
If statement vdhl
VBA
0 vote175 views1 answer
Change whcih control a user has selected vb
VBA
8 votes415 views1 answer
Excel vba make word from bytes
VBA
0 vote189 views1 answer
Vba simple quote
VBA
0 vote180 views1 answer
Vba option button selected
VBA
0 vote187 views1 answer
Weekday vba
VBA