Check if cell is bold or Not

Userdefine function to check the cell is bold or not:-

Function checkbold(xa As Range)

checkbold = xa.Font.Bold

End Function

Suppose if you want to check cell "D1" is bold or not

You need to type =checkbold(d1)

It will return TRUE if bold and FALSE if not.