macro modification help

[danushka]

Dear friends below macro code work fine.i want to add another condition to this code..my macro code is..

With Range("S3:S" & Range("L" & Rows.Count).End(xlUp).Row)
    .Formula = "=LOOKUP(-SUM(L3),IF(OR(TRIM(G3)={[COLOR=Red]""TP"",""EMB""[/COLOR]}),{-9.99E+307,-140,-70,-40,-16,-9,-3,-1},{-9.99E+307,-210,-105,-60,-24,-13.5,-4.5,-1.5}),{4,""4A"",3,2,""2AB"",""1A"",1,""1B""})"
    .Value = .Value
End With

I want to add ""TP"",""EMB"" condition with ""BHT"".because this all three is same.i have tried below but it's not work..pls help me..

With Range("S3:S" & Range("L" & Rows.Count).End(xlUp).Row)
    .Formula = "=LOOKUP(-SUM(L3),IF(OR(TRIM(G3)={[COLOR=Red]""TP"",""EMB"",""BHT""[/COLOR]}),{-9.99E+307,-140,-70,-40,-16,-9,-3,-1},{-9.99E+307,-210,-105,-60,-24,-13.5,-4.5,-1.5}),{4,""4A"",3,2,""2AB"",""1A"",1,""1B""})"
    .Value = .Value
End With

 

[CharlesChuckieCharles]

try using

.FormulaArray

rather than

.Formula

 

[danushka]

try using

.FormulaArray

rather than

.Formula

thanks for your reply.i have tried but not work..

 

[danushka]

ohh sorry friends. i have found my mistake.pls don't reply to this post..

 

[CharlesChuckieCharles]

If you explain what you fixed... future searchers for similar answers may not have to post any questions you help others learn