Via VBA

Select Case

Case "$": Range("A1:A100").NumberFormat = "$#,##0.00;($#,##0.00)"

Case "£": Range("A1:A100").NumberFormat = "£#,##0.00;(£#,##0.00)"

'etc
End Select

--
__________________________________
HTH

Bob

"Jim" wrote in message
...
I'm building a report book template that I want to use for multiple
currencies (only one per book). The first sheet would have a currency
selection box that then format all the relevent cells in the other sheets
to
the selected currency format. I know how to do it the long way, but was
hoping someone could suggest an easy quick solution.

Thanks in advance.

JIM