View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Derek[_3_] Derek[_3_] is offline
external usenet poster
 
Posts: 1
Default Change font to red and bold

Excel 2000
Help please, I would like to change the font to red and
make it bold when the value is greater than 0.5. The
color changes ok but when I add the bold=true statement it
fails. Please correct me..

Private Sub workbook_sheetchange(ByVal sh As Object, ByVal
Target As Range)
If Not Intersect(Target, Range("f5:f33")) Is Nothing Then
If Target.Value = 0.5 Then
Target.Font.ColorIndex = 3: Target.Font.Bold = True
End If
End If
End Sub

TIA, derek