Sub thickborders()
Select Case Range("a1").Value
Case Is = 1: mc = 4
Case Else
End Select
With ActiveCell
..Interior.ColorIndex = mc
..BorderAround Weight:=xlThick

End With
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Blue Max" wrote in message
...
Unfortunately, we have observed that the conditional format feature
appears to limit the choices for borders. For example, the user can
select both solid and broken line borders, but cannot modify the thickness
of the borders as you can when in the normal cell format dialog. Is there
a way to specify a conditional format that specifies a thicker border?