Livin404
Well-known Member
- Joined
- Jan 7, 2019
- Messages
- 743
- Office Version
- 365
- 2019
- Platform
- Windows
The following VBA works great, however I would like to change it to the active sheet or at least change it so the column does not highlight. There is another VBA about 3 steps down, that ends up un-bolding elements in my Column D. The name of my active worksheet is "72 Hr". I believe I will need to put something like Dim ws and Setws=Sheets('72 Hr"), but I just don't know how to properly get it in the right format.
VBA Code:
Sub IsolateTime()
Dim cel As Range
Range("D1:D100").Select
Range(Selection, Selection.End(xlDown)).Select
For Each cel In Application.Selection.Cells
cel.Value = Right$(cel.Text, 4)
Next cel
Selection.NumberFormat = "@"
End Sub