Replace Currency Format From One to Another at One go !! (VBA)

[Admin]

Here is one way to replace all the currency format from one to another at one go.

Sub Sample()
        
    Developed By: ExcelFox.com
    
    Dim rngData As Range
    
    Set rngData = Range("A2:B10")
    
    Application.FindFormat.NumberFormat = "[$$-409]#,##0.00" 'Current Format
    Application.ReplaceFormat.NumberFormat = "[$£-809]#,##0.00" 'New Format
    
    rngData.Replace What:="", Replacement:="", LookAt:=xlWhole, SearchOrder:= _
            xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True
End Sub

Works XL 2003 and above

Enjoy !