Paste method of worksheet class failed

The following code produces the above error in this particular workbook. (only in Excel 2003)

I've tried using pasting into the exact same size range and also the using only the leftmost cell when doing the paste.

I've also tried unprotecting the sheet and workbook. Neither seems to improve the situation.

Any ideas? Thanks in advance.


Sheets("VIS Database - Exceptions").Select
Range("A722:R728").Select
Selection.Copy
Sheets("Sheet1").Select
Range("A1").Select
ActiveWorkbook.Unprotect
ActiveSheet.Paste

kavisara

The problem appears to have something to do with
ActiveWorkbook.Unprotect
When I disable this command you code works ok

Actually, I've tried it without as well and doesn't work.

Any ideas??