VBA Currency NumberFormat Error - Excel - object

Question

I've a worksheet with many cells formated as currency and i want modify the currency format through a combobox,
First i use this code to get the inicial currency type/format,
Private Sub ComboBox1_DropButtonClick()
inicial = Me.ComboBox1.Value
Select Case inicial
Case "EUR"
oldFormat = "#.##0 €"
Case "GBP"
oldFormat = "[$£-809]#.##0"
Case "USD"
oldFormat = "#.##0 [$USD]"
End Select
End Sub
The oldformat variable is a global variable,
Public oldformat As String
After that i want to do a find using oldformat variable and a replace using a newformat variable,
Private Sub ComboBox1_Change()
Dim ws As Worksheet
Dim newFormat As String
'On Error Resume Next
newValue = Me.ComboBox1.Value
Select Case newValue
Case "EUR"
newFormat = "#.##0 €"
Case "GBP"
newFormat = "[$£-809]#.##0"
Case "USD"
newFormat = "#.##0 [$USD]"
End Select
'Set rNextCell = Application.FindFormat
For Each ws In ActiveWorkbook.Worksheets
Application.FindFormat.Clear
Application.FindFormat.NumberFormat = oldFormat
Application.ReplaceFormat.Clear
Application.ReplaceFormat.NumberFormat = newFormat
ws.Cells.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True
Next ws
End Sub
I read the new value through the user choice on the combobox.
But this not work at all, the variables oldformat and newformat receive the correct values but i got a error on,
Application.FindFormat.NumberFormat = oldformat
Application.ReplaceFormat.NumberFormat = newFormat
Run-time error '1004': Application-defined or object-defined error
Is there any way to pass the newformat and oldformat value to the Numberformat property?
Or someone have another away to do this?
Link for exemple file,
https://www.dropbox.com/s/sdyfbddxy08pvlc/Change_Currency.xlsm
I apreciate any help, i m a little bit new on VBA.
I apologize if there are any errors in English, is not my natural language.

Answer 1

I've downloaded the file. Then change the Code to:
Public oldFormat As String
Private Sub ComboBox1_Change()
Dim ws As Worksheet
Dim newFormat As String
'On Error Resume Next
newValue = Me.ComboBox1.Value
Select Case newValue
Case "EUR"
newFormat = "#,##0 $"
Case "GBP"
newFormat = "[$£-809]#,##0"
Case "USD"
newFormat = "#,##0 [$USD]"
End Select
'Set rNextCell = Application.FindFormat
For Each ws In ActiveWorkbook.Worksheets
ws.Range("XFD1048576").NumberFormat = oldFormat
ws.Range("XFD1048576").NumberFormat = newFormat
ws.Range("XFD1048576").NumberFormat = "General"
Application.FindFormat.Clear
Application.FindFormat.NumberFormat = oldFormat
Application.ReplaceFormat.Clear
Application.ReplaceFormat.NumberFormat = newFormat
ws.Cells.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True
Next ws
End Sub
Private Sub ComboBox1_DropButtonClick()
inicial = Me.ComboBox1.Value
Select Case inicial
Case "EUR"
oldFormat = "#,##0 $"
Case "GBP"
oldFormat = "[$£-809]#,##0"
Case "USD"
oldFormat = "#,##0 [$USD]"
End Select
End Sub
Now it runs without errors.
But one issue is there yet. If the user defined format equals the default currency format, then Excel (Excel! not VBA) will not set the user defined format but the default currency format. This is for Germany in VBA "#,##0 $". With me this was the case with #.##0 € which is one of the German currency formats. So for me is EUR "#,##0 $" in VBA.
Greetings
Axel