that make the different, thank you.
--
תודה רבה


"Dave Peterson" wrote:

This line formats the entire range as text:
Range("H1:H5200").NumberFormat = "@"

If you only want to format the cells that are changed to text:

If cell.Value < "" Then
cell.numberformat = "@" '<-- added
cell.Value = Right(cell.Value, Len(cell.Value) - 1)
Else

???? ????? wrote:

thank you Bob, but it make all the range as 'text'
--
ת×€¢Ã—€œÃ—€� ר×€˜Ã—€�

"Bob Phillips" wrote:


Dim cell As Object

Range("H1:H5200").NumberFormat = "@"
For Each cell In Range("H1:H5200")
If cell.Value < "" Then

cell.Value = Right(cell.Value, Len(cell.Value) - 1)
Else

Exit For
End If
Next cell


--
__________________________________
HTH

Bob

"???? ?????" wrote in message
...
Hello,

We have this code to transform data from num to text

I want to exit this code (loop) when there are no more value's in the
column
(empty)

what do i have to edit to that code ?

Range("H1:H5200").Select
Selection.NumberFormat = "@"

Dim cell As Object
For Each cell In Selection
cell.Value = " " & cell.Value
cell.Value = Right(cell.Value, Len(cell.Value) - 1)
Next




--
???? ???




--

Dave Peterson