Using VBA to delete special characters

[caryn_11]

How do I write a macro to find and delete special characters in my entire spreadsheet? The only characters I can have are alpha, numeric, underscore and dash.

 

[Scott Huish]

Sub test()
Dim c As Range
Application.ScreenUpdating = False
For Each c In ActiveSheet.UsedRange
    c = RemoveSpecialCharacters(c.Text)
Next
Application.ScreenUpdating = True
End Sub

Function RemoveSpecialCharacters(s As String)
With CreateObject("vbscript.regexp")
    .Pattern = "[^A-Z0-9_\-]"
    .IgnoreCase = True
    .Global = True
    RemoveSpecialCharacters = .Replace(s, "")
End With
End Function

 

[caryn_11]

That worked! Thank you so much!!