Sub jjnotme()
n = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To n
With Cells(i, 1)
v = .Value
If Application.WorksheetFunction.IsText(v) Then
.Font.Bold = True
.Copy .Offset(0, 1)
End If
End With
Next
End Sub
--
Gary''s Student - gsnu200772