Right click the sheet tab, view code and paste this in

Sub sonic()
lastrow = Cells(Cells.Rows.Count, "A").End(xlUp).Row
Set myrange = Range("A1:A" & lastrow)
For Each c In myrange
If Application.WorksheetFunction.IsText(c.Value) Then
c.Font.Bold = True
c.Offset(0, 1).Value = c.Value
End If
Next
End Sub

Mike

"jjnotme" wrote:

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