También te puede valer esto, si lo quieres en VBA:
Código:
Sub formato_texto()
'Opcion 1
'le ponemos una comilla simple delante, y con eso
'basta para que un número pase a ser un texto
ActiveCell = "'" & ActiveCell
'---------------------------------------------
'Opcion 2
'le cambiamos el formato, por formato de texto
ActiveCell.Select
Selection.NumberFormat = "@"
End Sub
Salu2