Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub properAllText()
- Dim c As Range
- For Each c In ActiveSheet.UsedRange
- c.Value = WorksheetFunction.Proper(c.Value)
- Next c
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement