Set value of cell if text in adjacent cell is "Bold"

Hello,

I am trying to create a macro/script that will set the value of a cell if the text in a cell 2 columns over is bold.
The bold cell would always be in column A.

Can anyone help?

I believe I would want to use this:
Range("A2").Select Selection.Font.Bold = True