You can adapt this to make the borders
Sub bordersaround()
Worksheets("Sheet1").Range("A1:D4").BorderAround _
ColorIndex:=3, Weight:=xlThick
'Selection.bordersaround
End Sub
or this to erase them
Sub noborders()
Worksheets("Sheet1").Range("A1:D4") _
.Borders.LineStyle = xlNone
End Sub

Signature
Don Guillett
SalesAid Software
dguillett1@austin.rr.com
> NOT homework!
> I was able to show / hide the numbers inside the range according to the
[quoted text clipped - 13 lines]
>>> ie. The code will be part of CheckBox2 button with condition to show the
>>> border or hide them.The sheet is protected.
Khalil Handal - 28 Jun 2007 14:43 GMT
Thanks!
I was always interestred in spliting the line in VB code which is seen as _
.
What key combination does this?????
> You can adapt this to make the borders
>
[quoted text clipped - 29 lines]
>>>> ie. The code will be part of CheckBox2 button with condition to show
>>>> the border or hide them.The sheet is protected.
Gord Dibben - 28 Jun 2007 15:16 GMT
That is the underscore character. SHIFT + - (hyphen)
Make sure you have a <space> between last character and the underscore _
Gord Dibben MS Excel MVP
>Thanks!
>I was always interestred in spliting the line in VB code which is seen as _
[quoted text clipped - 34 lines]
>>>>> ie. The code will be part of CheckBox2 button with condition to show
>>>>> the border or hide them.The sheet is protected.
Khalil Handal - 28 Jun 2007 16:11 GMT
Thanks
> That is the underscore character. SHIFT + - (hyphen)
>
[quoted text clipped - 43 lines]
>>>>>> ie. The code will be part of CheckBox2 button with condition to show
>>>>>> the border or hide them.The sheet is protected.