This code finds out if the font name contains "Bold" string and sets your boolean to 1 if so:
Function isBold(cellBold)
Application.Volatile
pos = InStr(cellBold.Font.Name, "Bold")
If pos > 0 Then
isBold = 1
End If
End Function