Bold on cell click, one cell only

[bmpreston]

I have a spreadsheet with a questions in column A. Yes in B, No in C and for some questions, in D a N/A

I’m looking for a VBA that will allow you to click the Yes, No, or N/A per row and bold that text.
I’d also like to validate that if one of the other answers is already bold, it removes the boldface while selecting the new bold.

any ideas?

 

[Peter_SSs]

Try this Worksheet_SelectionChange event code. Post back if you need help with how to implement it.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect(ActiveCell, Columns("B:D"), Rows("2:" & Rows.Count)) Is Nothing Then
    Intersect(ActiveCell.EntireRow, Columns("B:D")).Font.Bold = False
    ActiveCell.Font.Bold = True
  End If
End Sub

 

[bmpreston]

Yeah, I put it in the ThisWorkbook and I'm unable to have it auto change the cell based on cell click and cell selection.

Thanks

 

[Peter_SSs]

I put it in the ThisWorkbook

It needs to go in the module of the sheet that it is to work on. Right click that sheet's name tab and choose "View Code". Where that opens the vba window is where the code goes.
For example, in my workbook the worksheet in question is named 'Bold'

 

[bmpreston]

Flawless.

Thank you

 

[Peter_SSs]

You're welcome. Glad we could help.

BTW,
I suggest that you update your Account details (click your user name at the top right of the forum) so helpers always know what Excel version(s) & platform(s) you are using as the best solution often varies by version. (Don’t forget to scroll down & ‘Save’)