Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 2 Then Exit Sub
if target3 then Target.Borders.Weight = xlThick
End Sub

--
Don Guillett
SalesAid Software

"mjlevie" wrote in message
...
In the conditional formating the border option only allows me to select a
thin border. Is there a way to select a thicker border in conditional
Formating.