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 vote122 views1 answer
Handling a click event anywhere inside a panel vb
VBA
3 votes133 views1 answer
Excel vba export sheet as a csv without losing focus of my current workbook
VBA
0 vote134 views1 answer
Label de tableau dans des label.text en VBA
VBA
0 vote123 views1 answer
Excel vba protect sheet
VBA
0 vote115 views1 answer
Excel vba ternary
VBA
1 vote117 views1 answer
What does vbs stand for
VBA
0 vote120 views1 answer
Excel vba send HTTP POST to server
VBA
0 vote110 views1 answer
Docker vboxmanage not found
VBA
0 vote132 views1 answer
Filesystemobject vba reference
VBA
1 vote137 views2 answers
Excel vba password protect
VBA