FJinSA

This will work:

Sub InputDate()
Dim dt As String

dt = InputBox("Please enter the date")
Worksheets("Summary").Range("A4") = dt

End Sub

Regards


Alex
"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...