I get this error message
"delete method of range class failed"
when trying to do do a simple macro
I have moved the END IF's to diff places - seems if there is nothing in
E22 it does the delete shift up - then the next occurrance that is true
generates the error

Sheets("Sheet1").Visible = True
Sheets("Sheet1").Select
Range("E22").Select
If ActiveCell = "" Then
Range("A22:E22").Select
Selection.Delete Shift:=xlUp
Range("J22").Select
If ActiveCell = "" Then
Range("F22:K22").Select
Selection.Delete Shift:=x1Up
Range("K22").Select
If ActiveCell = "" Then
Range("F22:K22").Select
Selection.Delete Shift:=x1Up
Range("P22").Select
If currentCell = "" Then
Range("L22:P22").Select
Selection.Delete Shift:=x1Up
End If
End If
End If
End If


*** Sent via Developersdex http://www.developersdex.com ***