Livin404
Well-known Member
- Joined
- Jan 7, 2019
- Messages
- 743
- Office Version
- 365
- 2019
- Platform
- Windows
Greetings, the Macro works as designed. it is looking in Column A for the word "DATE" and left aligning only those cells containing "DATE". However, it is very slow and I get worried while I'm waiting that it is going to error out on me. I hope it is something really simple. This alignment suppose to happen on "Outbound FIDS", and then I want to make sure I return to "72 Hr" as the active sheet which is why I included it. Thank you,
VBA Code:
Sub LeftAlign_Date()
Dim cel As Range
Dim WS As Worksheet
For Each WS In Worksheets
For Each cel In WS.Range("A:A")
If InStr(1, cel.Value, "DATE") > 0 Then cel.HorizontalAlignment = xlLeft
Next
Next
Sheets("72 Hr").Select
End Sub