Experimente com a UDF abaixo

Function Retorna_Texto(Cell As Range) As String
    Dim LenStr As Long
    For LenStr = 1 To Len(Cell)
        Select Case Asc(Mid(Cell, LenStr, 1))
        Case 0 To 47
            Retorna_Texto = Retorna_Texto & Mid(Cell, LenStr, 1)
        Case 65 To 90
            Retorna_Texto = Retorna_Texto & Mid(Cell, LenStr, 1)
        Case 91 To 127
            Retorna_Texto = Retorna_Texto & Mid(Cell, LenStr, 1)
        End Select
    Next
End Function

Boa noite!!

Talvez, outra opção seria...

Sub test()
Dim e
With ActiveSheet.UsedRange
    For Each e In [{",","+","#","(",")","$"}]
        .Replace e, "", xlPart
    Next
End With
End Sub

Att

Desculpem a demora,
Gostaria de saber duas coisas:

Primeiro como faço para utilizar esse macro, realmente estou leigo nesse assunto.

Outra pergunta, não existem formulas que possam ter a mesma definição?

Por formula vc pode utilizar Substituir aninhados: =substituir(Substituir(A1;"1");"#"), e assim em diante.
Para utilizar o vba, primeiro Abra o editor do VBA (Alt+F11), insira um modulo (botal direito do mouse --> inserir --> modulo, e copie as funções acima e cole nesse modulo.
Para a udf que propus:
Supondo que sua deseja "limpar" o valor em A1, então em A2=Retorna_Texto(A1),
Qto ao codigo do colega Alexandre, depois de colar, vá na barra de ferramentas superios guia "Exibição" --> macros --> exibir macros --> selecione o nome da "macro colada"
e executar

Recomendo a solução do Reinaldo. É mais simples de implementar