delete multiple rows

  • Thread starter Continental Translations
  • Start date
C

Continental Translations

I want to delete rows 4,6,8,10,12 etc etc.... So, from row 4, I want to
delete every other row. My rows go up to 4000 or so

Any ideas?
 
G

Gord Dibben

Sub Delete_OddorEvenRows()
Dim rngStart As Range
Dim rngDel As Range
Dim rngTemp As Range
Dim rowCount As Long
oddeven = InputBox("Enter 1 To Delete Odd Rows or 2 To Delete Even Rows")
If oddeven = "" Then Exit Sub
Application.ScreenUpdating = False
If oddeven = 2 Then
Range("a1").Select
With Selection
.EntireRow.Insert
End With
GoTo keepon
Else
keepon:
Set rngStart = Range("1:1")
Set rngTemp = rngStart
For rowCount = 1 To ActiveSheet.UsedRange.Rows.Count
If rowCount Mod 2 = 0 Then
Set rngDel = rngStart.Offset(rowCount, 0)
Set rngTemp = Union(rngTemp, rngDel)
End If
Next
rngTemp.Select
Selection.EntireRow.Delete
End If
Application.ScreenUpdating = True
Range("A1").Select
End Sub

Gord Dibben Excel MVP
 
Top