Here is a small Example
Sub Delete_Row_600_551()
Sheets("Data").Select
If Range("G600") < Range("Q1") Then
Rows("600:600").Select
Selection.Delete Shift:=xlUp
End If
If Range("G600") Range("S1") Then
Rows("600:600").Select
Selection.Delete Shift:=xlUp
End If
If Range("G599") < Range("Q1") Then
Rows("599:599").Select
Selection.Delete Shift:=xlUp
End If
If Range("G599") Range("S1") Then
Rows("599:599").Select
Selection.Delete Shift:=xlUp
End If
End Sub
-----Original Message-----
Can you post your script here? Otherwise I cannot tell
you why it does
that....
---
Message posted from http://www.ExcelForum.com/
.