How to handle input box error

[jakeman]

Hey guys - I have an inputbox in my macro that will prompt a user to enter a 3 month character for 1 of 12 months: Jan, Feb, Mar, etc. If the user doesn't type a value or most importantly, incorrectly types the month character like Jam instead of Jan, I want an error handler that will notify the user to try again.

Here's part of the code that I've been working on:

monthValue = InputBox("Which month do you want to transpose data for?  Enter Jan or Feb or Mar using 3 letter character for month.") ' this is the month that user wants to transpose data

If monthValue <> "Jan" Or "Feb" Or "Mar" Or "Apr" Or "May" Or "Jun" Or "Jul" Or "Aug" Or "Sep" Or "Oct" Or "Nov" Or "Dec" Then

msgbox "Please try again and enter a correct month."

 

[Joe4]

If monthValue <> "Jan" Or "Feb" Or "Mar" Or "Apr" Or "May" Or "Jun" Or "Jul" Or "Aug" Or "Sep" Or "Oct" Or "Nov" Or "Dec" Then

You need to change all your "Or" statements to "And", and you need a complete statement for each one, like this:

If (monthValue <> "Jan") And (monthValue <> "Feb") And (monthValue <> "Mar") And ...

 

[jakeman]

Thanks, Joe. That helped get me where I wanted to be.

 

[Joe4]

You are welcome.