Amend Message Box to include Text

[howard]

I have the following code below

 Range("f1").Select
 Dim myValue As String
 ActiveCell.FormulaR1C1 = InputBox("Enter the Report month and year")
 Range("F1").NumberFormat = "MMM-YYYY"

I would like to automatically include text in the message box Reporting period : so that when the month and year is entered for eg Jan 2018 it appears as "Reporting period : Jan 2018"


It would be appreciated if someone could kindly amend my code

 

[Joe4]

You have some concerns that need addressing first.

Currently, you have no control or validations on what the user can enter into the Input Box. They can enter literally anything they want and it will be accepted.
Secondly, you are trying to apply number formatting to cell F1. That only works for valid number or date entries. It has no effect on string entries.

You are better off using a Calendar Control or Date Picker, which will force them to choose a valid date. Then, you can apply any formatting you like to it, since you know it is a valid date.

Here are a few links that show you how you can do that:
http://www.fontstuff.com/vba/vbatut07.htm
https://www.rondebruin.nl/win/s8/win003.htm

 

[howard]

Thanks for the advise the links. I have used the link below


https://www.rondebruin.nl/win/s8/win003.htm