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.
--Create a new workbook to combine all files Private Sub NewWb() Dim NewName As String NewName = "Client_CallMetrics_" & Format(Now(), "mmddyy") Workbooks.Add ActiveWorkbook.SaveAs FileName:=NewName & ".xlsx" End Sub
Private Sub CopySheets1() Dim wkb As Workbook Dim sWksName As String sWksName = "Sheet1" For Each wkb In Workbooks If wkb.Name <> ThisWorkbook.Name Then wkb.Worksheets(sWksName).Copy _ Before:=ThisWorkbook.Sheets(1) End If Next Set wkb = Nothing End Sub