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
Bookmarks