Adding Outside Border Around a Dynamic Range of Columns and Rows

[FrenchCelt]

Hello, I'm trying to add an outside border to a range of cells that starts at a constant cell (A7), but extends down a variable number of rows and across a variable number of columns. The Excel spreadsheet will be different in terms of rows & columns each day, so I want to add this part to my formatting macro that can do it automatically. Can anyone point me in the right direction? I've seen various examples for dynamic rows. For example, I have this within my own macro earlier after adding a new column and doing a formula fill down:

With Range("B8:B" & Range("B" & Rows.Count).End(xlUp).Row).Borders
         .LineStyle = xlContinuous
         .Weight = xlMedium

I would try to adapt this to add an outside border after doing some more formatting, but I don't know how to account for the dynamic number of columns.

 

[Rick Rothstein]

Maybe...

[table="width: 500"]
[tr]
	[td]LastUsedRow = Cells.Find("*", , xlValues, , xlRows, xlPrevious, , , False).Row
LastUsedCol = Cells.Find("*", , xlValues, , xlByColumns, xlPrevious, , , False).Column
With Range("A7", Cells(LastUsedRow, LastUsedCol))
  etc.[/td]
[/tr]
[/table]

 

[mikerickson]

How about

Range("B8").CurrentRegion.BorderAround LineStyle:=xlContinuous

 

[FrenchCelt]

How about

Range("B8").CurrentRegion.BorderAround LineStyle:=xlContinuous

This worked! How can I make the border medium thickness?

 

[mikerickson]

The Weight argument of .BorderAround can be set as desired.

 

[FrenchCelt]

The Weight argument of .BorderAround can be set as desired.

When I switched the weight argument to medium, I ended up losing the border I had around my entire range. When it was set to linestyle = xlContinuous, I had a thin border, but when I replaced it with weight = xlMedium, it didn't fill in all the border gaps I was trying to fill in with anything at all.

 

[FrenchCelt]

Never mind, I was able to figure it out. Thanks so much for your help!