Hi Angela,

Here is some sample code

Dim ans
ans = InputBox("Input date")
If ans < "" Then
If IsDate(ans) Then
If ActiveSheet.Evaluate("Weekday(""" & Format(ans, "yyyy/mm/dd")
& """,2)") 5 Then
MsgBox "weekends not allowed"
End If
Else
MsgBox "dates only"
End If
End If


--

HTH

RP
(remove nothere from the email address if mailing direct)


"angelaegbunu"
wrote in message
news:angelaegbunu.1ubsah_1124982340.6583@excelforu m-nospam.com...

hi, i need help with writing a code that would allow me to input date
between mondays to saturdays monthly excluding sundays. Does anyone
know how to go about this please, help needed urgently.

Thanks, angela


--
angelaegbunu
------------------------------------------------------------------------
angelaegbunu's Profile:
http://www.excelforum.com/member.php...o&userid=26633
View this thread: http://www.excelforum.com/showthread...hreadid=399069