past method of worksheet class failed

Hi all,

I am having the this problem. My paste method fails. I run my code in MS Excel 2010 and it fails
while the same time if I run it on MS Excel 2003 it works perfectly. Can anyone help? Here is my code:


Thanks in advance

Sub APOTH_ASFALEIAS()
                           
Sheets("FORMULAS(HIDDEN)").Select
ActiveSheet.Unprotect

                Sheets("FORMULAS(HIDDEN)").Select
                Range("DA1:EZ600").Select
                Selection.ClearContents


        Sheets("INPUT SHEET").Select
        Range("A1:AZ600").Select
        Selection.Copy
        Sheets("FORMULAS(HIDDEN)").Select
        Range("DA1:EZ1").Select
'---Here it fails---
        ActiveSheet.Paste

Sheets("FORMULAS(HIDDEN)").Select
ActiveSheet.protect

Untested.

Sub APOTH_ASFALEIAS()

With Sheets("FORMULAS(HIDDEN)")
     .Unprotect
     .Range("DA1:EZ600").ClearContents
     Sheets("INPUT SHEET").Range("A1:AZ600").Copy
     Sheets("FORMULAS(HIDDEN)").Range("DA1").PasteSpecial xlValues
   .Protect
End With
End Sub

Hi AB33,

Thank you for your answer. The fact is that I want also the formulas and not just the values of the cells.

Use this line

Sheets("FORMULAS(HIDDEN)").Range("DA1").PasteSpecial xlFormulas ''formulas only

Sheets("FORMULAS(HIDDEN)").Range("DA1").PasteSpecial xlPasteAll 'paste all