rsmeyerson
Board Regular
- Joined
- Nov 29, 2014
- Messages
- 104
I'll looking for help with adding borders to all non-empty rows plus 10 additional rows. Here is my code below that already adds borders to all used rows. Can you please help me modify it to add the next 10 rows beneath the last row?
In addition, I need to add medium weight borders to certain columns that I'm currently adding line by line in my code below. Is there a way to do this with multiple columns within the same line of code?
Thanks for your help,
Bob
In addition, I need to add medium weight borders to certain columns that I'm currently adding line by line in my code below. Is there a way to do this with multiple columns within the same line of code?
Thanks for your help,
Bob
Code:
Sheets("Master").Select
last = Cells(Rows.Count, "A").End(xlUp).Row
For i = last To 4 Step -1
Cells(i, "A").Resize(, 77).Borders.LineStyle = xlContinuous
Cells(i, "G").Borders(xlEdgeLeft).Weight = xlMedium
Cells(i, "Q").Borders(xlEdgeLeft).Weight = xlMedium
Cells(i, "AA").Borders(xlEdgeLeft).Weight = xlMedium
Next i