Debugs with Copy / Paste
 

I have the following code that Debug on the "ActiveSheet Paste" that is in large font below and I can't figure it out. The Debug message is "Paste Method of Worksheet Class failed"




Sub Generate_Reports()

Sheets("Figures").Select
Cells.Select
Selection.Copy
Range("A1").Select
Sheets("E-Figures").Visible = True
Sheets("E-Figures").Select
Range("A1").Select
ActiveSheet.Unprotect Password:="pass"
ActiveSheet.Paste
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.Visible = False
Sheets("Altered").Select
Cells.Select
Selection.Copy
Range("A1").Select
Sheets("E-Altered").Visible = True
Sheets("E-Altered").Select
Range("A1").Select
ActiveSheet.Unprotect Password:="pass"
ActiveSheet.Paste
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.Visible = False

Sheets("Home").Select
Range("A1").Select

Mail_Reports
End Sub

Debugs with Copy / Paste
 

Whenever you try to paste, if it does not say "Select destination and press
ENTER or choose paste" in Excel's lower left corner, you know that the
clipboard has been cleared. (You can check this when you hit Debug). So
there is nothing to paste. The actions of unhiding a worksheet or
unprotecting it have done this. So do them before you do the Copy.

--
Jim
"John" wrote in message
...
I have the following code that Debug on the "ActiveSheet Paste" that is in
large font below and I can't figure it out. The Debug message is "Paste
Method of Worksheet Class failed"




Sub Generate_Reports()

Sheets("Figures").Select
Cells.Select
Selection.Copy
Range("A1").Select
Sheets("E-Figures").Visible = True
Sheets("E-Figures").Select
Range("A1").Select
ActiveSheet.Unprotect Password:="pass"
ActiveSheet.Paste
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.Visible = False
Sheets("Altered").Select
Cells.Select
Selection.Copy
Range("A1").Select
Sheets("E-Altered").Visible = True
Sheets("E-Altered").Select
Range("A1").Select
ActiveSheet.Unprotect Password:="pass"
ActiveSheet.Paste
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.Visible = False

Sheets("Home").Select
Range("A1").Select

Mail_Reports
End Sub