Hello,

Not a very sophisticated excel user. I am trying to create a macro that first unhides sheets, copies them and paste the values and formats of the selected sheets into a new workbook. Below is what i have so far, it works for the first sheet but does not for the other sheets. I basically have one data entry form that populates data into all these hidden sheets, and i need these sheets to have all the data, no formula into a new workbook.

Application.ScreenUpdating = False
Sheets("Agreement").Visible = True
Sheets("Exhibit A").Visible = True
Sheets("Exhibit A-1").Visible = True
Sheets("Exhibit A1.2").Visible = True
Sheets("Exhibit A-2").Visible = True
Sheets("CO Worksheet").Visible = True
Sheets("T&M Back-Up Sheet").Visible = True
Sheets("CO-1").Visible = True
Sheets(Array("Agreement", "Exhibit A", "Exhibit A-1", "Exhibit A1.2", "Exhibit A-2", "CO Worksheet", "T&M Back-Up Sheet", "CO-1")).Select
Sheets(Array("Agreement", "Exhibit A", "Exhibit A-1", "Exhibit A1.2", "Exhibit A-2", "CO Worksheet", "T&M Back-Up Sheet", "CO-1")).Copy
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Range("A1").Select
Windows("ContractTemplate759.xlsm").Activate
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Agreement").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Exhibit A").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Exhibit A-1").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Exhibit A1.2").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Exhibit A-2").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("CO Worksheet").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("T&M Back-Up Sheet").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("CO-1").Select
ActiveWindow.SelectedSheets.Visible = False
End Sub