Around and Inner Cell Borders

[Jak]

Hi Guys

I am selecting ranges and then want to automate adding Borders and BordersAround the selected range. When running the code, I have to call the macro twice to do BordersAround and Border on the selected cells. Looking for some help in order that I can call the macro once and get both.

Sub Frame()

With Selection.Borders.LineStyle = xlContinuous
    End With
With Selection.BorderAround.xlContinuous.xlThick
    End With
End Sub

 

[Fluff]

How about

Sub Frame()

Selection.Borders.LineStyle = xlContinuous

Selection.BorderAround xlContinuous, xlThick

End Sub

 

[Jak]

How about

Sub Frame()

Selection.Borders.LineStyle = xlContinuous

Selection.BorderAround xlContinuous, xlThick

End Sub

Hi Fluff

Applied your code. I am still having to run the code twice to get Borders and BordersAround.

 

[Fluff]

You shouldn't need to. Are you running that code on it's own, or is it part of a larger macro?

 

[Jak]

Hi Fluff, its being run on its own. I have stepped through it, it executes ok. But, depending on which code is hit first in the macro, the BorderAround or Borders if I change the order, this is applied. Run the same code again, the secondary code updates the selected range.

Based on your code, I have taken a step back and looked at the worksheet. I have added an additional line in and your code is adding both.

Sub Frame()
Selection.Borders.LineStyle = xlNone

Selection.Borders.LineStyle = xlContinuous

Selection.BorderAround xlContinuous, xlThick

End Sub

 

[Fluff]

Why are you changing the order of the code, leave it as it is.

 

[Jak]

Why are you changing the order of the code, leave it as it is.

Hi Fluff, I changed the order to see if it made any difference. See my last post for resolving the issue. Thanks for your
input, its frustrated me this afternoon.

 

[Fluff]

Glad you sorted it & thanks for the feedback.