Hi
then your statement can't work. you may try something along the lines
'...
Dim cell as range
for each cell in rng
if cell.value=dtReportDate then
'do something
end if
next
'...

--
Regards
Frank Kabel
Frankfurt, Germany

"Mcasteel" schrieb im
Newsbeitrag ...

Dim strReportDate As String
strReportDate = InputBox("Please Enter Report Date:", "Get Daily
Report:")

Dim dtReportDate As Date
dtReportDate = DateValue(Date:=strReportDate)


--
Mcasteel
---------------------------------------------------------------------
---
Mcasteel's Profile:
http://www.excelforum.com/member.php...o&userid=15698
View this thread:
http://www.excelforum.com/showthread...hreadid=276390