Hi

I do not see how you can copy an object without first unprotecting the
sheet. the trick to do this is then to do it programmatically, assuming
your data is in A1, by unprotecting then protecting it after you are
done.


Sub Copy()
ActiveSheet.Unprotect
Selection.Copy
Range("B1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
End Sub


--
KellTainer
------------------------------------------------------------------------
KellTainer's Profile: http://www.excelforum.com/member.php...o&userid=34322
View this thread: http://www.excelforum.com/showthread...hreadid=546281