This should do the trick:

Sub InputDate()
Sheets("Summary").Range("A4").Value = InputBox("Type the date below.",
"Date", Date)
End Sub

FJinSA Wrote:
Hi all,
I want to create an input box that asks users for the date to use in
the
spreasheet, then I want this date to populate to a worksheet named
"Summary"
in cell A4.
Your help in appreciated...


--
Ikaabod
------------------------------------------------------------------------
Ikaabod's Profile: http://www.excelforum.com/member.php...o&userid=33371
View this thread: http://www.excelforum.com/showthread...hreadid=541200