A digital transformation requires faster time to market, shorter software development lifecycles, and the ability to adapt rapidly to changing customer demands. DevOps provides the solution.
Sub SaveOut() thisWb = ActiveWorkbook.Name Workbooks.Add thatWb = ActiveWorkbook.Name Workbooks(thisWb).Activate Dim SH As Worksheet sheetCount = 1 For Each SH In Workbooks(thisWb).Worksheets If InStr(SH.Name, "Main") Then Else SH.Copy Before:=Workbooks(thatWb).Sheets(sheetCount) sheetCount = sheetCount + 1 End If Next SH For Each SH In Workbooks(thatWb).Worksheets If InStr(SH.Name, "Sheet") Then SH.Delete End If Next SH End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.