ok...this then didn't work...damm it.

so used this code to add the leading apostrophe and it appears to work
now

'Sub fixanzsic()
'*****Currently not in use, to update ANZSIC list to text format

'Dim strg As String

'Do Until ActiveCell.Value = ""

'strg = ActiveCell.Value

'strg = "'" & strg

'ActiveCell.Value = strg

'ActiveCell.Offset(1, 0).Activate

'Loop

'End Sub


--
cclambie
------------------------------------------------------------------------
cclambie's Profile: http://www.excelforum.com/member.php...o&userid=29135
View this thread: http://www.excelforum.com/showthread...hreadid=488546