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
-----Original Message-----
I have a column of 400 rows or so of data where the
characters are all numbers but the field I'm uploading to
is alpha. Formatting these entries as text does now work
in this situation. Example below:

52006000 would be entered as '52006000

So, what I need is to convert an undetermined number of
cells in a column. I need the macro beginning in cell h12
in this case and it needs to figure out how many rows
there are from there on down so that it will have a stop
value.

Then I would need a for loop that would go into each
cell.
It would need to add the apostrophe at the beginning of
the cell entry in the fashion shown above if it is not
already there.

Thanks for your help...


Bruce
.