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

8 votes200 views1 answer
Excel vba determine number of elements in a 2D array
VBA
0 vote173 views1 answer
VBA Loop to range
VBA
0 vote189 views1 answer
Vba count all row
VBA
0 vote177 views1 answer
How to add line graph vb net
VBA
25 votes250 views3 answers
String to date vb
VBA
0 vote172 views1 answer
Excel vba automatic calculation
VBA
5 votes178 views1 answer
Xlvba double quotes in string literal
VBA
-1 vote181 views1 answer
How to correct a number to 2 decimal places in vba
VBA
5 votes179 views1 answer
Excel vba low byte from INTEGER
VBA
0 vote175 views1 answer
Vba sort multiple columns
VBA