Clean Sheet

Sub CleanSheet()
    Dim r As Range
    Application.ScreenUpdating = False
    For Each r In Range(Cells(1, 1), Cells(252441, 75))
        If TypeName(r.Value) = "String" Then
            r = WorksheetFunction.Clean(r)
        End If
    Next r
    Application.ScreenUpdating = True
End Sub