Is there a way to program a macro so that when it is run, first a
window pops up asking the user to enter in a date. Could I then use
this date in the same macro? (i.e. I want to just pull the data that
was entered in the month the user requests). Thanks!

Dim dt As Date
dt = InputBox("Enter date (mm/dd/yy).")

Hth,
Merjet

One way:

Dim vDate As Variant
Do
vDate = Application.InputBox( _
Prompt:="Enter date:", _
Title:="MyMacro", _
Default:=Date)
If vDate = False Then Exit Sub 'user cancelled
Loop Until IsDate(vDate)
'Do more stuff


In article .com,
wrote:

Is there a way to program a macro so that when it is run, first a
window pops up asking the user to enter in a date. Could I then use
this date in the same macro? (i.e. I want to just pull the data that
was entered in the month the user requests). Thanks!

for flexibility on input formats:

Sub demo()
Dim d As Date
d = DateValue(Application.InputBox("Enter Date: ", 2))
MsgBox (d)
End Sub

--
Gary's Student
gsnu200705


" wrote:

Is there a way to program a macro so that when it is run, first a
window pops up asking the user to enter in a date. Could I then use
this date in the same macro? (i.e. I want to just pull the data that
was entered in the month the user requests). Thanks!

Note, though, that this throws a run-time error if the user cancels or
enters a non-date (including a blank). It's a little more user-friendly
to use something like:

Public Sub Demo()
Dim d As Date
Dim vAnswer As Variant
Do
vAnswer = Application.InputBox("Enter date", "Title")
If vAnswer = False Then Exit Sub 'user cancelled
Loop Until IsDate(vAnswer)
d = CDate(vAnswer)
MsgBox d
End Sub


In article ,
Gary''s Student wrote:

for flexibility on input formats:

Sub demo()
Dim d As Date
d = DateValue(Application.InputBox("Enter Date: ", 2))
MsgBox (d)
End Sub

Thank you for the advice
--
Gary's Student
gsnu200705


"JE McGimpsey" wrote:

Note, though, that this throws a run-time error if the user cancels or
enters a non-date (including a blank). It's a little more user-friendly
to use something like:

Public Sub Demo()
Dim d As Date
Dim vAnswer As Variant
Do
vAnswer = Application.InputBox("Enter date", "Title")
If vAnswer = False Then Exit Sub 'user cancelled
Loop Until IsDate(vAnswer)
d = CDate(vAnswer)
MsgBox d
End Sub


In article ,
Gary''s Student wrote:

for flexibility on input formats:

Sub demo()
Dim d As Date
d = DateValue(Application.InputBox("Enter Date: ", 2))
MsgBox (d)
End Sub