Use Split:

Sub MonthGetter()
Dim s As String
s = "Greensboro C&A PF Jan 09 wk2 lw"
v = Split(s, " ")
MsgBox (v(3))
End Sub

Split in VBA is similar to Text to Columns in the worksheet.
--
Gary''s Student - gsnu200855


"Bishop" wrote:

I have several reports that are named using a specific naming protocol:

Center "C&A PF" Month Year Week Analyst Initials

Here a few examples:

Greensboro C&A PF Jan 09 wk2 lw
Heathrow C&A PF Mar 09 wk3 et
London C&A PF Feb 09 wk5 bm

I need to extract the month from the file name and assign it to a variable,
say Mnth. So for the Greensboro report Mnth = Jan. For the London report
Mnth = Feb, etc. How can I do this?