Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Dim time1, time2, time3, time4 As Range
- Set time1 = Range(Cells(5, 4), Cells(numDays + 4, 5))
- Set time2 = Range(Cells(5, 6), Cells(numDays + 4, 7))
- Set time3 = Range(Cells(5, 8), Cells(numDays + 4, 9))
- Set time4 = Range(Cells(5, 10), Cells(numDays + 4, 11))
- With Selection.Borders(xlEdgeLeft)
- .LineStyle = xlContinuous
- .ColorIndex = xlAutomatic
- .TintAndShade = 0
- .Weight = xlThin
- End With
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement