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

4 votes160 views1 answer
Excel vba how to reset usedrange
VBA
0 vote150 views1 answer
Excel text to columns line break
VBA
0 vote162 views1 answer
Openfiledialog specific folder
VBA
0 vote181 views1 answer
Iterate all file in a folder vba
VBA
32 votes305 views2 answers
Excel vba column letter
VBA
0 vote175 views1 answer
Excel vba open browser
VBA
0 vote150 views1 answer
Vba first cell in range
VBA
0 vote181 views1 answer
Excel vba first column in range
VBA
4 votes174 views1 answer
Excel vba how to get a range's full address including sheet name
VBA
0 vote165 views1 answer
Sort dictionary by key vba
VBA