ExcelBanter - Creating borders via Conditional Formatting

With CF the borders are what you see in the dialog and thick is not one of them.

You could use event code instead which would allow for thick borders.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
On Error GoTo endit
Application.EnableEvents = False
With Target.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Target.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Target.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Target.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
End If
endit:
Application.EnableEvents = True
End Sub

As far as a "contact" person for Microsoft to register your wishes, lots of luck
with that<g

None hang around these newsgroups AFAIK.

Gord Dibben MS Excel MVP

On Wed, 7 Nov 2007 08:06:02 -0800, WLMPilot
wrote:

I was trying something new the other day. Instead of predesigning colums to
be X number of rows, I decided to create a conditional format that would make
a box (outlining the cell) as a number was entered in the cell.

I like to use the thick border line to outline the outermost borders.
However, this particular line does not exist in the conditional format border
options. I use Excel 2000.

Can someone tell me how to get around this or maybe direct me to the correct
Microsoft "contact" so that I can suggest that this be put in.

Thanks,
Les