Sub ABC()
Dim s1 as String, s2 as String
s1 = "=IF(OR(E2=""11 - MARKETING XXXXXXXX"";E2" & _
"=""12 - MARKETING XXXXXXXXXX"";E2" & _
"=""13 - INTERNATIONAL MARKETING"";E2" & _
"=""14- XXXXXXXXXXXXX"");VLOOKUP(H2;" & _
"'[MARKETNGHELP.xls]vlookup'!$P:$Q;2;FALSE);" & _
"VLOOKUP(E2;'[MARKEINGHELP.xls]vlookup'!$I:$J;2;FALSE))"
s2 = Application.Replace(s1,";",",")
activecell.formula = s2
End sub

when using the formula property, the formula is entered using us English
conventions.

--
Regards,
Tom Ogilvy


"steven" wrote:

Hello i am trying to record a macro with the recorder but i get a "cannot
record macro" error message.

the formula i am trying to record is (this is the way it looks in excel
mode) :

IF(OR(E2="11 - MARKETING XXXXXXXX";E2="12 - MARKETING XXXXXXXXXX";E2="13 -
INTERNATIONAL MARKETING";E2="14-
XXXXXXXXXXXXX");VLOOKUP(H2;'[MARKETNGHELP.xls]vlookup'!$P:$Q;2;FALSE);VLOOKUP(E2;'[MARKEINGHELP.xls]vlookup'!$I:$J;2;FALSE))

why can't i record it? can someone give me the code to paste it directly in
a module?

thank you.

Steven.