Pasting/Using Input Box Value

[hindsight]

I've got a sub that runs a series of calculations, many of which are
based off a "MonthEndDate."

Currently, I input a date (like 9/30/05) in cell D4 and the first line
of code is:

'This row will be used in many other calculations
Range("D4").Name = "MonthEndDate"

This works fine for me as I know that I've got to enter a date in cell
D4, but if someone else is using the spreadsheet they don't know that.

What I'd like to do is, when the sub runs, have an inputbox appear, the
user enters a date and that date is used in the calculations. I guess
that value has to be pasted somewhere in the workbook for the formulas
to work?

This is all I've got... as you can see I'm stuck
Sub test1()

Dim EndDate As Long
EndDate = InputBox("Enter the Month Ending Report Date.", "End
Date")

End Sub

Best,

JB

 

[Guest]

See Ron de Bruin's Calendar control page at:

http://www.rondebruin.nl/calendar.htm

 

[Gord Dibben]

Sub testing()
Dim EndDate As Long
EndDate = InputBox("Enter The Month Ending Date", "End Date")
With Range("D4")
.Value = EndDate
.Name = "MonthEndDate"
End With
End Sub



Gord Dibben Excel MVP

 

[hindsight]

Vacation & Gord,

Thanks for your reply's.

Gord - that's what I was looking for.

Vacation, I'll have to follow the link to check out Bruin's page.

Thanks again,

JB