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