Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
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.
|Format Control on two Buttons||6||25|
|How to change the class of VBA so that instead of IE it uses Google Chrome?||3||24|
|need to query data with cero||6||11|
|NEED TO COUNT THE PAIR||12||14|
Join the community of 500,000 technology professionals and ask your questions.