Mass identification of formatting

[MadisonJeff]

I would like to have column B indicate a number 1 if the corresponding contents of column A are formatted in bold. Can anyone guide me on how to accomplish this?

Thank you.

 

[Datsmart]

You can put this code in the WorkSheet module to get what you are after.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Set rng = Range("A1:A" & Range("A65536").End(xlUp).Row)
    For Each c In rng
        If c.Font.Bold = "True" Then
            c.Offset(, 1).Value = 1
        End If
    Next c
End Sub