This is a strange one. I have a person in the UK who can manually change
the format of cell from Euro's to $'s. But, if we record the macro to do
that same action and run it on other cells (or the original cell after doing
an undo), it changes the format from Euro's to British pounds. The code in
the macro is just one line, the recorded new cell format.

Any ideas?

Bob

Post the line.
--
Gary''s Student - gsnu200786

Bonsour® Bob Flanagan avec ferveur ;o))) vous nous disiez :

> This is a strange one. I have a person in the UK who can manually
> change the format of cell from Euro's to $'s. But, if we record the
> macro to do that same action and run it on other cells (or the
> original cell after doing an undo), it changes the format from Euro's
> to British pounds. The code in the macro is just one line, the
> recorded new cell format.
> Any ideas?
Sub Macro1()
Selection.NumberFormat = "[$£-809]#,##0.00"
MsgBox "selected is now Pound United kingdom"
Selection.NumberFormat = "[$$-409]#,##0.00"
MsgBox "selected is now selected US Dollar"
Selection.NumberFormat = "#,##0.00 [$CAD]"
MsgBox "selected is now Canandian Dollar"
End Sub

HTH
--
@+
;o)))

Many thanks. I will give it a try. Any idea why the $ sign is needed in of
each, especially the double $$ for US$'s?

Bob

"Mais qui est Paul" <Excel-addict@mpfe.fr> wrote in message
news:O1sBQFEuIHA.552@TK2MSFTNGP06.phx.gbl...
> Bonsour® Bob Flanagan avec ferveur ;o))) vous nous disiez :
>
>> This is a strange one. I have a person in the UK who can manually
>> change the format of cell from Euro's to $'s. But, if we record the
>> macro to do that same action and run it on other cells (or the
>> original cell after doing an undo), it changes the format from Euro's
>> to British pounds. The code in the macro is just one line, the
>> recorded new cell format.
>> Any ideas?
> Sub Macro1()
> Selection.NumberFormat = "[$£-809]#,##0.00"
> MsgBox "selected is now Pound United kingdom"
> Selection.NumberFormat = "[$$-409]#,##0.00"
> MsgBox "selected is now selected US Dollar"
> Selection.NumberFormat = "#,##0.00 [$CAD]"
> MsgBox "selected is now Canandian Dollar"
> End Sub
>
> HTH
> --
> @+
> ;o)))
>
>