Macro that deletes all asterisk signs from cells

Question

Say I have a sheet, where the cells are mostly numerical characters only, but some cells unfortunately also contain "*".

I am new to VBA or macros in general and tried this:

Sub RemoveNonNumeric()
Dim c As Range
For Each c In Selection
c.Value = Replace(c.Value, "[^0-9.,-]", "")
Next c
End Sub

My intent is to remove all non-numeric characters except ".","-" and ","

Either the code is faulty or my way of applying it is wrong. Any help?

Answer 1

Try this:

Sub RemoveNonNumeric()

    Dim c As Range, regex As Object
    Set regex = CreateObject("VBScript.RegExp")
    With regex
       .Global = True
       .IgnoreCase = True
       .Pattern = "[^0-9.,-]"
    End With
    
    For Each c In Selection
       c.Value = regex.Replace(c.Value, "")
    Next c

End Sub