Código defectuoso

Olá.
Isto está a dar comigo em doido. Grrrrrrrrrrrrrrrrr
Construi uma macro num ficheiro onde utilizei o comando
"ActiveSheet.Unprotect" que resultou excelente.
Posteriormente quis aplica-lo noutra macro e cada vez que executo a mesma
dá-me
< "Run-time error '1004" Não foi possivel executar o método PasteSpecial
da
classe range >
Penos que isso acontece porque a folha não foi desprotegida apesar de o
cídifo estar antes.
Que se passará??? Que haverá de errado no código???
A Ideia é copiar dados da folha1 e cola-los na folha3 desprotegendo-a e no
final protegendo-a novamente.
Ajuda...

Eilo:
______________________________________
Sub ImprFicha_GuardaConsulta()
'
' Macro4 Macro
' Macro gravada em 19-01-2007 por Albino
'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
Application.ScreenUpdating = False
Range("H2:K3").Select
Selection.Copy
Sheets("Folha3").Select
Range("A1").Select

ActiveSheet.Unprotect '[Será que está no lugar certo e bem
escrito??]

Selection.End(xlDown).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Sheets("Folha1").Select
Range("D2:D7,B8").Select
Selection.ClearContents
Sheets("Folha3").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, _
AllowFiltering:=True
Application.ScreenUpdating = True

End Sub