After copying sheet, paste special

[gnoke]

Hei,

I am using the following code (provided by royUK) to copy a entire sheet and name it according to cell A10:

Option Explicit

Sub copy_it()
Sheets("Dates").Copy After:=Sheets("Dates")
ActiveSheet.Name = Range("A10").Value
End Sub

Cells A11:O23 are merged and filled with text. However more then 256 characters are present.
Anyone who knows how to modify the code to get around this problem (it works when manually copy, and paste special)?

Duplicate:
http://www.excelforum.com/excel-pro...re-sheet-and-name-it-according-to-a-cell.html

Gnoke