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 vote237 views1 answer
Excel vba remove formatting from cell
VBA
5 votes259 views1 answer
Excel vba last byte from INTEGER
VBA
0 vote226 views1 answer
Worksheet.pastespecial textbox
VBA
8 votes245 views1 answer
Run command pormpt in background windows
VBA
0 vote232 views1 answer
Excel vba address not absolute
VBA
3 votes262 views1 answer
Excel vba make long from two shorts
VBA
0 vote237 views2 answers
Open url from vba
VBA
1 vote226 views1 answer
Excel vba autofit
VBA
0 vote242 views1 answer
Date as number vb
VBA
0 vote228 views1 answer
Vba code to select image in sheet
VBA