create function that returns a value based on current month

[dad812]

my workbook has 12 sheets in it named abbreviated month name, on each sheet is a button that loads a user form,
I have the this code in a FormShow Sub, it works, I would like to clean up the sub and using a function might be a way to do this. would like help on how to go about it.

Please Login or Register  to view this content.

would like a simple call in place of what I have, maybe

Please Login or Register  to view this content.

could this be placed in my module that is my declares module ?

Thanks in advance

[CK76]

I think you have typo, should Aug not be 46?

At any rate you don't need separate function/sub for this. You can simply calculate 6 + 5 * Month#.

Something like...

Please Login or Register  to view this content.

Note: I'd recommend adding simple error trap before "dt =" line. Like... "On Error GoTo ErrHandle:" and at end of sub, add something like below.

Please Login or Register  to view this content.

[dad812]

much better than what I had previous, and thanks for the typo catch... Aug. would have been "Fun"