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 vote143 views1 answer
Vba get text file content
VBA
0 vote151 views1 answer
Vba word open document read only
VBA
1 vote143 views2 answers
Vba string to date
VBA
3 votes149 views1 answer
Vba request json
VBA
0 vote141 views1 answer
Get current year vb
VBA
0 vote162 views1 answer
If statement vdhl
VBA
5 votes162 views1 answer
Excel vba low byte from INTEGER
VBA
0 vote143 views1 answer
Excel vba send HTTP POST to server
VBA
0 vote149 views1 answer
Vba character ascii code
VBA
5 votes161 views1 answer
Xlvba double quotes in string literal
VBA