Border Cells
 

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.

Border Cells
 

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"
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.

Border Cells
 

Hello Jim

I Thankyou

Steved

"Jim Cone" wrote:


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"
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.

Border Cells
 

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

"Steved" 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.

Border Cells
 

Hello Don

Thankyou

Steved

"Don Guillett" wrote:

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

"Steved" 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.