Dim strReportDate As String
strReportDate = InputBox("Please Enter Report Date:", "Get Dail
Report:")
Dim dtReportDate As Date
dtReportDate = DateValue(Date:=strReportDate
--
Mcastee
-----------------------------------------------------------------------
Mcasteel's Profile:
http://www.excelforum.com/member.php...fo&userid=1569
View this thread:
http://www.excelforum.com/showthread.php?threadid=27639