I am trying to write a macro to copy the format in the current cell and apply
it to all cells in the book that are currently formated as a currency. Any
idea of why the below is not working?

Sub CurrencyCopy()

Dim rng As Range
Dim format As String
format = ActiveCell.NumberFormat
Msg = "This will reformat all cells currently containing a currency
format. Are you sure you wish to proceed?"
Ans = MsgBox(Msg, vbYesNo)
If Ans = vbYes Then
Set rng = ActiveSheet.UsedRange
For Each cell In rng
If VarType(cell) = vbCurrency Then
ActiveCell.NumberFormat = format
End If
Next cell
End If

'
End Sub



Thanks for the help!