Border Cells

[Steved]

Hello from Steved

My Objective is to please to border the cells in the Range "A2:S44"

What have I not done please.

Sub Borders ()
Range("A2:S44").BorderAround Weight:=xlThin
End Sub
Thankyou.

 

[Jim Cone]

With Range("A2:S44")
.BorderAround Weight:=xlThin
.Borders(xlInsideVertical).Weight = xlThin
.Borders(xlInsideHorizontal).Weight = xlThin
End With
'--
Gives it kind of a tortured look?
--
Jim Cone
Portland, Oregon USA



"Steved" <[email protected]>
wrote in message
Hello from Steved
My Objective is to please to border the cells in the Range "A2:S44"
What have I not done please.

Sub Borders ()
Range("A2:S44").BorderAround Weight:=xlThin
End Sub
Thankyou.

 

[Steved]

Hello Jim

I Thankyou

Steved

 

[Don Guillett]

Sub DoBorders() 'does inside and outside
with range("a2:s44")
..Borders.LineStyle = xlContinuous
..BorderAround Weight:=xlthin 'xlMedium
End With
End Sub

 

[Steved]

Hello Don

Thankyou

Steved

Sub DoBorders() 'does inside and outside
with range("a2:s44")
..Borders.LineStyle = xlContinuous
..BorderAround Weight:=xlthin 'xlMedium
End With
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(e-mail address removed)