Borders on Fixed # of columns, Variable # of Rows

B

BEEJAY

' Select range to put borders on
' B3 thru F3 and down to last row

LastRow = Worksheets(1).Cells(Rows.Count, "E").End(xlUp).Row
Range ("B3:G" & LastRow)

Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone

With Selection.Borders(xlEdgeLeft)
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

help needed with borders 2
Borders on Fixed # of Columns, Variable # of Rows 3
Removing Border lines and colour for All sheets 3
Help with macro 1
Hlp! Adv Filter - Non-Contiguous rows don't copy 11
Formatting stop when reach blank cell 6
Loops through Sheets but doesn't work. 5
Bottom border for each row code not working 3

Top