is bold function

You can use to check if the particular item is a bold or not

 

Public Function IsBold(c As Range) As Boolean

On Error GoTo Handler

IsBold = c.Font.Bold

Exit Function

Handler:

If Err.Number = 94 Then IsBold = True

End Function