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 vote350 views1 answer
Vba add spaces
VBA
0 vote339 views1 answer
Vba get workbook name
VBA
0 vote349 views1 answer
Find if year is leap year vb
VBA
0 vote329 views2 answers
How to update date and time automatically once id is entered in excel vba
VBA
8 votes377 views1 answer
Run command pormpt in background windows
VBA
1 vote356 views1 answer
Vba ubound array 2-dimensional
VBA
8 votes452 views1 answer
Vba make a short integer from two bytes
VBA
0 vote320 views1 answer
Windows Presentation Foundation dark title bar
VBA
0 vote328 views1 answer
Remove series name from legendvbnet
VBA
0 vote348 views2 answers
Checking and changing system volume vb.net
VBA