try this
Option Explicit

Sub DeleteSundays()
Application.ScreenUpdating = False
Dim I
I = [a1].End(xlDown).Row - 1
Do
If WeekDay([a1].Offset(I, 0).Value) = vbSunday Then
[a1].Offset(I, 0).EntireRow.Delete
End If
I = I - 1
If I < 0 Then Exit Do
Loop While [a1].Offset(I, 0).Value 0 And I = 0
Application.ScreenUpdating = True
End Su

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