Try this for row 1 -100

Sub Example2()
Dim Lrow As Long
Dim CalcMode As Long
Dim StartRow As Long
Dim EndRow As Long
With Application
CalcMode = .Calculation
.Calculation = xlCalculationManual
.ScreenUpdating = False
End With

With ActiveSheet
.DisplayPageBreaks = False
StartRow = 1
EndRow = 100
For Lrow = EndRow To StartRow Step -1
If .Cells(Lrow, "E").Value = "a" Or _
.Cells(Lrow, "E").Value = "b" Or _
.Cells(Lrow, "E").Value = "c" Then _
If .Cells(Lrow, "G").Value = "" Then .Rows(Lrow).Delete
Next
End With
With Application
.ScreenUpdating = True
.Calculation = CalcMode
End With
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"CPower " wrote in message ...
Hi all,

Im doin a macro, and i need to get code to delete rows in col E that
have have certain data i.e a, c, d, h. But i only want these deleted if
the rows in col G are blank. Is the some kind of if statement that can
be used for this?
Any help on this would be great.

Thanks in advance,
Cathal.


---
Message posted from http://www.ExcelForum.com/