Your question is not very clear, but perhaps something here.

Dim res as Variant, res2 as Variant
Dim dt as Date
dt = "some date"
res = Application.Match(clng(date),rows(1),0)
res2 = Application.Match(dt,Columns(1),0)
if not iserror(res) and not iserror(res2) then
cells(res2,res).Value = "Intersect"
else
msgbox "At least one date not found"
End if

--
Regards,
Tom Ogilvy




wrote in message
oups.com...
How do I fill with a specific value the returned active cell from the
intersect of a calendar dates range in Row 1 (Col B thru ...) and any
date from a Target dates list in Col. A ?
Thank you for help.
Celeste