Reporting is one of the most important and least talked about aspects of a world-class threat intelligence program. Here’s how to do it right.
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
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
11 Experts available now in Live!