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

**cajunlibra** · 10-09-2012, 10:34 PM

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** · 10-09-2012, 10:47 PM

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** · 10-09-2012, 11:02 PM

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** · 10-09-2012, 11:09 PM

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

**cajunlibra** · 11-20-2012, 01:12 AM

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.