jaggyone:

try,

Range("A1") = CDate(VBA.InputBox("Input current date", Default:=Date))

--
天行å�¥ï¼Œå�›å*�以自強ä¸�æ�¯
地勢å�¤ï¼Œå�›å*�以厚德載物

http://www.vba.com.tw/plog/


"jaggyone" wrote:

I would like to create a macro that will ask for the current date and input
the value into the header of a weekly report. How do I do this?

Thanks in advance,
jag