replace:

destrange.Value = sourceRange.Value


with:

If sourceRange.PrefixCharacter = "'" Then
destrange.Value = Chr(39) & sourceRange.Value
Else
destrange.Value = sourceRange.Value
End If

--
Gary's Student


"sparx" wrote:


Hi there, being dum as I am, where would I place your code in the code I
already have?


--
sparx
------------------------------------------------------------------------
sparx's Profile: http://www.excelforum.com/member.php...o&userid=16787
View this thread: http://www.excelforum.com/showthread...hreadid=551639