SteveOranjin
Board Regular
- Joined
- Dec 18, 2017
- Messages
- 170
Hello,
I have written the below code. I think it works, but it takes forever to wheel through the code. Can someone take a quick little peak and give me a shove in the right direction?
I have written the below code. I think it works, but it takes forever to wheel through the code. Can someone take a quick little peak and give me a shove in the right direction?
Code:
Sub Proper_Formatting()
'We must first of all, declare objects in a range.
Dim rng As Range, cell As Range
'We're going to prevent the screen from running its accustomed updates while it is performing the procedures.
Application.ScreenUpdating = False
'We are selecting the range of data that we want to work with
Sheets("Data Sheet").Select
'We want to select the cells within the sheet
Cells.Select
'We are defining one of the variables to accord to the selection we just made.
Set rng = Selection
For Each cell In rng
cell.Value = WorksheetFunction.Proper(cell.Value)
Next cell
Application.ScreenUpdating = True
End Sub