Got it ... Thanks, Bob !

cheers
Andrew

"Bob Phillips" wrote:

If you go into the VBIDE (ALt-F11), and ensure that the immediate window is
open (Ctrl-G), and in there assign the formula to the activecell, in English
(always in English), like so

Activecell.Value = "=len(a1)-len(substitute(a1,""@"",""""))"

If you then go back to Excel (Alt-F11), the formula will be in the local
language, complete translation.