vba: How do I write a "For Each Statement" nested in a "With Statement"?

[Mcasteel]

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

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

 

[Frank Kabel]

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
'...