Sub MM1()
Const sBad As String = "`!@#$;^()_-=+{}[]\|;:'"",.<>/?"
Dim cell As Range, s As String, i As Long
Application.ScreenUpdating = False
For Each cell In ActiveSheet.UsedRange
If VarType(cell.Value) = vbString Then
s = cell.Value
For i = 1 To Len(sBad)
s = Replace(s, Mid(sBad, i, 1), "")
Next i
cell.Value = Application.Trim(s)
End If
Next cell
Application.ScreenUpdating = True
End Sub