And then there is (worked in Excel 2000):

Dim mon As String, x As Integer
For x = 1 To 12
mon = Left(MonthName(x), 3)
MsgBox mon
Next


--
steveB

Remove "AYN" from email to respond
"Daniel" wrote in message
...
Hello,
I need to create a list of month wich would equal their string expression
( 01 = Jan, 02 = Feb, ...., 12=Dec )

Then I would have something like :
newFileStr = "Projection " & currentMonthStr & "-March " &
Left(Sheets(1).Name, 9), so that currentMonthStr would equal July for
example.

Someone has an idea how to do this?

Thanks

Daniel