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

[cajunlibra]

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

[FDibbins]

if there is some criteria that determines why the value in A1 would be bold, you could use this same criteria in conditional formatting, instead of VBA

[cajunlibra]

It doesn't have any other special characteristic. I'm creating a tab delimited text file from a .rtf to be uploaded. The Bolded text represents the correct answer. If the letter representing the answer is bold, I want to make the cell 2 columns to the right equal to "correct".

[FDibbins]

ok then some1 will have to help you with some VBA code, sorry

[cajunlibra]

I found this online.


Function checkbold(xa As Range)

checkbold = xa.Font.Bold

End Function

Source: http://www.excelvbamacros.com/2010/1...ld-or-not.html

It works well. This formula does what I want it to do, though a macro would be quicker.