Was tested. somehow an EXTRA . in front of END. change to ONE dot.

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Connie Martin" wrote in message
...
Don, I tried the macro as well as Jim and Sean's method, which work. I am
having a Compile Syntax error message with the macro, and the rows it's
highlighting a
For i = Cells(Rows.Count, 1) _
..End(xlUp).Row To 1 Step -1
Anyway, since it can be done without a macro, I think I'll take that
route.
Thank you for responding. Much appreciated. Connie

"Don Guillett" wrote:

Sub deletesatsun()
Dim md As String
For i = Cells(Rows.Count, 1) _
..End(xlUp).Row To 1 Step -1
md = Left(Format(Cells(i, 1), "ddd"), 3)
If md = "Sat" Or md = "Sun" Then
Rows(i).Delete 'MsgBox i
End If
Next i
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Connie Martin" wrote in message
...
In Col. A there are dates, formatted as dates in the format of Sun -
Jan
01,
2010 and it goes to the end of 2010. How do I delete all the Saturday
and
Sunday's in one shot? Connie

.