[Løst]Run-time error Excel

[perroga]

Jeg får følgenede feilmelding i excel (2003):

Run-time error, "Kan ikke angi Hidden egenskapen til range klassen."

Meldingen kommer når jeg kjører følgende makro: Problem uthevet i rødt.

 

Sub RepStøtt()

'

' Makro registrert 07.01.2009 av .....

' Makro som kopierer formategenskaper og formler for å reparere når felter og formler er skadet, pga f.eks klipp-ut funksjonen, eller fyll- funksjonen er benyttet.

Application.ScreenUpdating = False

ActiveSheet.Select

Range("59:72").Select

Selection.EntireRow.Hidden = False

Range("G60:M71").Select

Selection.Copy

 

Range("G6:M17").Select

Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _

SkipBlanks:=False, Transpose:=False

 

Range("N60:CL71").Select

Selection.Copy

Range("N6:CL17").Select

ActiveSheet.Paste

Range("G4").Select

Rows("59:72").Select

Selection.EntireRow.Hidden = True

Application.ScreenUpdating = True

End Sub

 

Når makroen kjøres i ark "Støtteark" fungerer den.

Når arket kopieres og heter "Støtteark (2)", fungerer den ikke.

 

Noen som har en forklaring eller et forslag til løsning på problemet?

Endret 10. januar 2009 av perroga

[perroga]

Fant en annen måte å løse det på.... Trekker spørsmålet..