VBA that detects conditional formatting

[jupasto]

Hello,

To preface I'm a total noob with VBA but I found a simple VBA function on the web that tests if a cell is bold or not and returns true or false. I also have some conditional formatting set up to turn text bold if it's within a certain date.

My problem is that even though the conditional formatting works and turns the text bold, the "ISBOLD" function still returns false. Is there a way to modify the VBA to detect the bold text?

Function ISBOLD(cell As Range) As Boolean

  Application.Volatile True
  On Error GoTo PartiallyBold
    ISBOLD = cell.Characters.Font.Bold
  On Error GoTo 0

Exit Function

PartiallyBold:
  If Err.Number = 94 Then ISBOLD = True

End Function

 

[Fluff]

Re: Help with VBA that detects conditional formatting

You could use

Private Sub Worksheet_Calculate()
   Dim x As Variant
   x = Range("D6:D11").DisplayFormat.Font.Bold
   Range("A12").Value = IIf(x = False, False, True)
End Sub

Which will run whenever any cell on the sheet recaclulates
It needs to go in the relevant sheet module.