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
|how to use laptop or pad camera in vb.net windows application||2||55|
|Excel 2010 - Populate a formula in multiple cells||6||26|
|Excel - Open, modify and save text file||4||0|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
11 Experts available now in Live!