Error message please help!

[jon321]

When this part of my code is used an error report comes up and the de-bugger highlights the pastespecial part. However when the protection is removed from the sheet it is pasting to also removing the "Unprotect" code it works fine??

the error message is....

Run-time error '1004'
Paste special method of range class failed

ActiveSheet.Unprotect password:="jon"

Range("A1000").End(xlUp).Select
Selection.Offset(1, 0).Select

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Any Suggestions???

 

[Andrew Poulsom]

Is there anything on the clipboard to paste?

 

[GlennUK]

Can you clarify this:

However when the protection is removed from the sheet it is pasting to also removing the "Unprotect" code it works fine??

?

 

[jon321]

Yes there is definatly something on the clipboard to paste.. and to clarify it... if i remove the protection from the sheet that the code is running on.. it will paste onto it fine.

 

[Jon von der Heyden]

Where's the bit of the code that initiates the copy? And are you abolsutely sure that the sheet is successfully unprotected?

 

[Andrew Poulsom]

I think you will find that:

ActiveSheet.Unprotect password:="jon"

clears the clipboard. So try moving it before your copy statement.

 

[GlennUK]

Put your Unprotect code before you "fill" the clipboard.

 

[jon321]

Fantastic it was clearing the clipboard when unprotecting moved it around now its working fine !!! thanks Guys!