Livin404
Well-known Member
- Joined
- Jan 7, 2019
- Messages
- 743
- Office Version
- 365
- 2019
- Platform
- Windows
Greetings, I'm trying to get borders around all cells containing data whilst ignoring cells that have no value. I tried using another VBA for another function then repurpose it, but had zero luck. The VBA I attempted to use is: Thank you,
VBA Code:
Sub BlckOutlineCells()
Dim wsAct As Worksheet
Set wsAct = ActiveSheet
Application.ScreenUpdating = False
With Sheets("Inbound FIDS")
.Activate
With .Range("A1", .Range("A" & Rows.Count).End(xlUp))
With rng.Borders
.LineStyle = xlContinuous
.Color = 1
.Weight = xlMedium
End With
End With
wsAct.Activate
Application.ScreenUpdating = True
End Sub