Try this:
MsgBox Month(CDate("01-sty-2003"))

Uzytkownik "_______Tim_______" napisal w wiadomosci
...
Hi,

Can you show me how to write a macro to convert a three
place month abreviation, Jan, Feb, Mar, etc., in column Y
into a number, 1, 2, 3, etc., in column AF?

Thank You.

Regards, Tim