This is horrible that I can't figure this out with the help of google.
I have a spreadsheet1 with 5 sheets(sheet1, sheet2, etc...). I want to open a new workbook, copy the sheets over in order, delete the original 3 sheets, then save as without a prompt.
This is what I am working with so far:
thisWb = ActiveWorkbook.Name
thatWb = ActiveWorkbook.Name
Dim SH As Worksheet
sheetCount = 1
For Each SH In Workbooks(thisWb).Worksheets
If InStr(SH.Name, "Main") Then
sheetCount = sheetCount + 1
For Each SH In Workbooks(thatWb).Worksheets
If InStr(SH.Name, "Sheet") Then