Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement