«

Hi
How can I check if today is Sunday or Saturday and put it
into If EndIf condition.
Thanx
dave

sorry for posting
I got the solution..
thanx
dave
>-----Original Message-----
>Hi
>How can I check if today is Sunday or Saturday and put
it
>into If EndIf condition.
>Thanx
>dave
>.
>

Sub Process(date1)
If IsDate(date1) Then
Select Case DatePart("w",date1)
Case 1 'Sunday
'Do Something
Case 2 'Monday
'Do Something
Case 3 'Tuesday
'Do Something
Case 4 'Wednesday
'Do Something
Case 5 'Thursday
'Do Something
Case 6 'Friday
'Do Something
Case 7 'Saturday
'Do Something
End Select
End If
End Sub

-dlbjr

Discerning resolutions for the alms