Change font to red and bold

[Derek]

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

 

[papou]

Hello Derek
Have a line break between Target.Font.ColorIndex and Target.Font.Bold = True
ie:
Private Sub Worksheet_Change(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

HTH
Regards
Pascal