Cambiar formato de numero por condicion

hola, Guillermo !

Como hago para cambiar del formato de numero (en este caso el tipo de moneda de una celda)
basado en una condicion de otra celda? (p ej, si celda A5=1 => moneda u$S si celda=2 moneda $)

[hasta donde se]... los formatos numericos [en celdas y/o estilos] solo se pueden modificar... 'a mano'... o por macros :-(
-> y el uso de macros vacia la pila de niveles para des-hacer, por lo que toma en cuenta que 'se pierde' ese beneficio :\

-> el siguiente ejemplo supone que 'A5' define el 'identificador' de moneda que deseas 'actualizar/modificar/intercambiar/...'
y que las alternativas son: 1 o 'cualquier otro valor' [incluso borrar el contenido de 'A5'] ;)
solo toma en consideracion las -posibles- diferencias por los separadores y/o configuracion regional <= OJO <= OJO
1) define un estilo nuevo [p.e. -> Mi moneda] desde menu herrmientas / estilos... -> con cualquier formato numerico :D
2) copia las siguientes lineas -> en el modulo de codigo de 'esa' hoja...
Dim ID As String
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$5" Then _
ID = IIf(Target = 1, """US""", ""): _
ActiveWorkbook.Styles("Mi moneda").NumberFormat = _
ID & "$ #,##0.00;[Red]-" & ID & "$ #,##0.00"
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.