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 vote289 views1 answer
Vba collection key list
VBA
0 vote309 views1 answer
Vba variable number of arguments
VBA
0 vote272 views1 answer
Dynamically change drop down list visual basic
VBA
0 vote276 views1 answer
Returns an array from function vba
VBA
0 vote267 views1 answer
Excel vba disable copy paste
VBA
0 vote317 views1 answer
Vba integer to double
VBA
0 vote296 views1 answer
Excel vba round to whole number
VBA
3 votes292 views1 answer
Excel vba get the workbook full file name with path
VBA
1 vote291 views1 answer
Excel vba compare 2 rows
VBA
0 vote281 views1 answer
Find days in month vba
VBA