maybe you could use:

cell.value = "'" & cell.text



Rainer Welzel wrote:

I tried to force a date column to a text column by
inserting a tick before the date.
This works fine but if the date 01.01.1900
the result is '31.12.1899 .

the macro line is :
Dim cell As Range
..
cell = "'" & cell

what is wrong ?

thx for your help
rainer

--

Dave Peterson