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 |
Change font to red and bold
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 "Derek" a écrit dans le message de news: ... 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 |
All times are GMT +1. The time now is 02:28 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com