I have the following code with pops up a conditional message box and
inserts Text into Cell D10 (which is prepopulated using =Now() to insert
Date/Time. I need format of Cell D10 to change to General so that the Text
"Closed" -- inserted by the Input Bos will display properly.

Here's my code:

If MsgBox("Is this a Closed Deal?", vbQuestion + vbYesNo) = vbYes Then

Sheets("Analysis").Range("D10").Value = InputBox("Enter CLOSED for a Closed
Deal and CLICK OK, or CLICK Cancel to save an Opportunity?")

End If
'Call RollupTrackingSpecificData

End Sub
=================
How would I modify the code to ensure that the date in the Input Box is
displayed at text in D10?


Thank you in Advance

works fine for me as is??
"Doctorjones_md" wrote in message
...
I have the following code with pops up a conditional message box and
inserts Text into Cell D10 (which is prepopulated using =Now() to insert
Date/Time. I need format of Cell D10 to change to General so that the Text
"Closed" -- inserted by the Input Bos will display properly.

Here's my code:

If MsgBox("Is this a Closed Deal?", vbQuestion + vbYesNo) = vbYes Then

Sheets("Analysis").Range("D10").Value = InputBox("Enter CLOSED for a
Closed Deal and CLICK OK, or CLICK Cancel to save an Opportunity?")

End If
'Call RollupTrackingSpecificData

End Sub
=================
How would I modify the code to ensure that the date in the Input Box is
displayed at text in D10?


Thank you in Advance

You can insert this line before your input box just to be sure.

ActiveSheet.Range("$D$10").NumberFormat = "General"


"Doctorjones_md" wrote:

I have the following code with pops up a conditional message box and
inserts Text into Cell D10 (which is prepopulated using =Now() to insert
Date/Time. I need format of Cell D10 to change to General so that the Text
"Closed" -- inserted by the Input Bos will display properly.

Here's my code:

If MsgBox("Is this a Closed Deal?", vbQuestion + vbYesNo) = vbYes Then

Sheets("Analysis").Range("D10").Value = InputBox("Enter CLOSED for a Closed
Deal and CLICK OK, or CLICK Cancel to save an Opportunity?")

End If
'Call RollupTrackingSpecificData

End Sub
=================
How would I modify the code to ensure that the date in the Input Box is
displayed at text in D10?


Thank you in Advance