horizonflame
Board Regular
- Joined
- Sep 27, 2018
- Messages
- 186
- Office Version
- 2013
Hi All,
Last question to finish my recent project :D
I need to perform the following functions:
- Copy Sheet2, Sheet3 and Sheet 4 to new workbook (using codename as sheet name change weekly)
- Hide Sheet2
- Save workbook in original directory taking Sheet2 name and fixed suffix
- Remain/return to original workbook
This is what I have tried to put together so far...
Thank you
Last question to finish my recent project :D
I need to perform the following functions:
- Copy Sheet2, Sheet3 and Sheet 4 to new workbook (using codename as sheet name change weekly)
- Hide Sheet2
- Save workbook in original directory taking Sheet2 name and fixed suffix
- Remain/return to original workbook
This is what I have tried to put together so far...
Code:
Application.ScreenUpdating = False
Sheets(Array(Sheet2, Sheet3, Sheet4)).Move
Sheet2.Visible = False
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & Sheet2.Name & "_Error_Corrections" & ".xlsx"
Application.ScreenUpdating = True
Thank you
Last edited: