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 vote225 views2 answers
Do until loop vba
VBA
0 vote225 views1 answer
Dlete rows with blanks and space " " vba
VBA
0 vote246 views1 answer
How to add line graph vb net
VBA
0 vote235 views1 answer
Label de tableau dans des label.text en VBA
VBA
0 vote224 views1 answer
Windows Presentation Foundation dark title bar
VBA
0 vote236 views1 answer
Regex numeric digits
VBA
0 vote241 views1 answer
How to make a a msgbpx in vbs
VBA
0 vote224 views1 answer
Excel vba formatconditions range
VBA
0 vote203 views1 answer
How to self delete a vbscript file
VBA
31 votes515 views1 answer
Vba how to convert a column number into an Excel column
VBA