I'm not sure this is what you want, but:

Sub inptBxx()
myDate = InputBox("Enter a date as month/year.", "Date")
myDate = Format(myDate, "mmyyyy")
MsgBox myDate
End Sub


"Amitriumphs" wrote:

Hi all,

I need a macro with an input box accepting certain dates which matches
with the names of the folder present in C:\ drive in the format MMYYYY
and should give error message on any other character entered.

Any help would be appreciated.

Thanks,
Amit