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

12 votes299 views1 answer
Excel vba write string to text file
VBA
0 vote179 views1 answer
Vb run command
VBA
0 vote174 views1 answer
Windows Presentation Foundation dark title bar
VBA
0 vote176 views1 answer
Change form background image vb
VBA
6 votes168 views1 answer
Excel vba check if a string only contains alpha characters
VBA
0 vote167 views1 answer
Visual basic msdos
VBA
-1 vote195 views1 answer
How save excel through visual basic
VBA
0 vote213 views1 answer
Vba ternary
VBA
3 votes163 views1 answer
Excel vba read registry key value
VBA
0 vote179 views1 answer
Prive sub enter clicked vb
VBA