How to say this in VBA

[Kutar]

How might one say the following in VBA? Its suppose to be for all 12 months but Excel 2007 told me that I "exceeded the Nesting Levels".
What parameters need to be created to do it?


=IF(ISNUMBER(FIND(" JAN ",D27)),"JAN",IF(ISNUMBER(FIND(" FEB ",D27)),"FEB",IF(ISNUMBER(FIND(" MAR ",D27)),"MAR",IF(ISNUMBER(FIND(" APR ",D27)),"APR",IF(ISNUMBER(FIND(" MAY ",D27)),"MAY",IF(ISNUMBER(FIND(" JUN ",D27)),"JUN"," "))))))


Can you help please?


Thank you,
K

 

[mikerickson]

How about =TRIM(D27) or

MsgBox Trim(CStr(Range("D27"))

 

[Scott Huish]

What does your value in D27 look like?

 

[Kutar]

Column D (D27) has 2 names then the 3 letter month then a noun

Here are examples of the column D
JIM SARA FEB ENGINEER
JEFF TOMMY JAN ENGINEER
LILLY JOE SEP MANAGER

etc


I'm looking to find what month is in the column D cells and paste the month into the cell next to it. All 12 months do apply.
Thank you for you help!

Scott

 

[ukmikeb]

Kutar

If the month is always after the second space then try :-

=MID(D27,FIND("#",SUBSTITUTE(D27," ","#",2))+1,3)

hth

Mike