Dim irow1 As Long
Dim ws1 As Worksheet
Dim test As String

Set ws1 = Worksheets("Sheet1")
For irow1 = 1 To 50
test = ws1.Cells(irow1, 3).Text
cells(irow1,6).Numberformat = "@"
'MsgBox test
ws1.Cells(irow1, 6) = "'" & test
Next irow1

End Sub


--
Regards,
Tom Ogilvy

"Troy" wrote in message
...
Hello,

I have a spreadsheet with a single column containing 25000 rows that have
a
16 digit number. I'd like to convert the .xls to csv and in doing that i
changed the number to an exponential number. So avoid this I came up with
the follwoing code that will add a ' to all the rows but it didn't work
because after the single quote was added the number flipped to an
exponential number.

Sub test()
'

'
' Keyboard Shortcut: Ctrl+Shift+Q
'

Dim irow1 As Long
Dim ws1 As Worksheet
Dim test As String

Set ws1 = Worksheets("Sheet1")
For irow1 = 1 To 50
'test = ws1.Cells(irow1, 3)
'MsgBox test
ws1.Cells(irow1, 6) = "'" & ws1.Cells(irow1, 3)
Next irow1

End Sub

Any ideas?

thanks