Sub ClearCurrency()Dim cel As RangeWith ThisWorkbook.ActiveSheet For Each cel In .UsedRange.Cells If VarType(cel) = vbCurrency Then cel.Clear End If NextEnd WithEnd Sub
I have 160+ excel files I need to remove currency from... So the macro needs to run from a master file and not pasted into each of the 160+ files. the Personal.xlsb is a Master doc thats always there when I open Excel
Open in new window