Format to text was not sufficient

[acw]

Bruce

Try this.

Sub aaa()
Range("h65536").End(xlUp).Select
While ActiveCell.Row > 11
If WorksheetFunction.IsNumber(ActiveCell.Value) Then
ActiveCell.Value = "'" & ActiveCell.Value
End If
ActiveCell.Offset(-1, 0).Select
Wend

End Sub

Tony