Input Box Formatting

  • Thread starter Thread starter Doctorjones_md
  • Start date Start date
D

Doctorjones_md

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"
 
Back
Top