If text in cell is bold then ......

[alkarkar]

Hi everyone.
In every cell A1,A2,A3...A100 there is text (one or two words) which is/are bold or not.
I need to run a macro (or formula?) which will put in B1 the number 1 if text in A1 is bold or else to put number 2, in B2 the number 1 if text in A2 is bold or else to put number 2 .......... in B100 the number 1 if text in A100 is bold or else to put number 2 .
---A---------B-------
TREE-------1
GRASS----1
OCEAN-----2
CHILD-----1

Thanks Alex

 

[ktab]

Geia sou Alex,

Try this at a VBA standard module:

Sub test()
lastrow = Range("a65536").End(xlUp).Row
For i = 1 To lastrow
    If Cells(i, 1).Font.Bold = True Then
        Cells(i, 2) = 1
    Else: Cells(i, 2) = 2
    End If
Next i
End Sub

 

[alkarkar]

Thank you patrida.
It works fine.