Sub lookfortext()
mc = "a"
For i = 2 To Cells(Rows.Count, mc).End(xlUp).Row
With Cells(i, mc)
If Not IsNumeric(.Value) Then
'MsgBox i
..Font.Bold = True
..Offset(, 1) = .Value
End If
End With
Next i
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"jjnotme" wrote in message
...
I need a macro that tests whether there is text in any cell in column A.
If there is text, I need to bold that cell/cells, and also copy it to
column
B. Please let me know how to do this Thanks