Hello,
I am having a problem with the following code. When the user inputs the date
in mm/dd/yyyy format in the inputbox, it gets converted into a number (9 for
example) and displays 1/8/1900 in the cell. Could someone suggest how to
force the inputbox to use the needed date format?
Jon

Private Sub Workbook_Open()
aDate = Range("A1").Value
Ans = MsgBox("Is " & aDate & " the correct reconciliation date?",
vbYesNo, "Question...")
Select Case Ans
Case vbYes
Exit Sub
Case vbNo
Prompt = "What is the new reconciliation date?"
Caption = "Tell me..."
newrecDate = Val(InputBox(Prompt, Caption))
Range("A1") = newDate
End Select
End Sub

Jon,
dim newrecDate = date
newrecDate = InputBox(Prompt, Caption)
Range("A1") = newrecDate

I assume range("A1") is formatted for dates.

Ross


"Jon" <(E-Mail Removed)> wrote in message
news:7459A139-6F20-4384-9E90-(E-Mail Removed)...
> Hello,
> I am having a problem with the following code. When the user inputs the
> date
> in mm/dd/yyyy format in the inputbox, it gets converted into a number (9
> for
> example) and displays 1/8/1900 in the cell. Could someone suggest how to
> force the inputbox to use the needed date format?
> Jon
>
> Private Sub Workbook_Open()
> aDate = Range("A1").Value
> Ans = MsgBox("Is " & aDate & " the correct reconciliation date?",
> vbYesNo, "Question...")
> Select Case Ans
> Case vbYes
> Exit Sub
> Case vbNo
> Prompt = "What is the new reconciliation date?"
> Caption = "Tell me..."
> newrecDate = Val(InputBox(Prompt, Caption))
> Range("A1") = newDate
> End Select
> End Sub

Ross-Thanks! Only 1 minor adjustment

dim newrecDate As Date

Thanks again-
Jon

"Ross Culver" wrote:

> Jon,
> dim newrecDate = date
> newrecDate = InputBox(Prompt, Caption)
> Range("A1") = newrecDate
>
> I assume range("A1") is formatted for dates.
>
> Ross
>
>
> "Jon" <(E-Mail Removed)> wrote in message
> news:7459A139-6F20-4384-9E90-(E-Mail Removed)...
> > Hello,
> > I am having a problem with the following code. When the user inputs the
> > date
> > in mm/dd/yyyy format in the inputbox, it gets converted into a number (9
> > for
> > example) and displays 1/8/1900 in the cell. Could someone suggest how to
> > force the inputbox to use the needed date format?
> > Jon
> >
> > Private Sub Workbook_Open()
> > aDate = Range("A1").Value
> > Ans = MsgBox("Is " & aDate & " the correct reconciliation date?",
> > vbYesNo, "Question...")
> > Select Case Ans
> > Case vbYes
> > Exit Sub
> > Case vbNo
> > Prompt = "What is the new reconciliation date?"
> > Caption = "Tell me..."
> > newrecDate = Val(InputBox(Prompt, Caption))
> > Range("A1") = newDate
> > End Select
> > End Sub
>
>
>