That won't work, try this

Var1 = Evaluate("MAX(ABS(" & rng1.Address & "),ABS(" & rng2.Address &
"))")


--
__________________________________
HTH

Bob

"u473" wrote in message
...
Would this syntax be correct ?

Var1 = WorksheetFunction.Max(WorksheetFunction.Abs
(Rng1),WorksheetFunction.Abs(Rng2))
Thank you for your help,
J.P.