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.
Dim FName As String Dim MacroBook As Workbook Dim OutputBook As Workbook Set MacroBook = ActiveWorkbook FName = Sheets("INSTRUCTIONS").Range("C2").Value & " " & Sheets("INSTRUCTIONS").Range("C3").Value If FName = " " Then MsgBox ("Enter the Vendor Name and Product Line"): Exit Sub Set OutputBook = Workbooks.Add Application.DisplayAlerts = False OutputBook.SaveAs Filename:="F:\buying\catalog production\2013\" & FName & ".xls" MacroBook.Sheets(2).Copy OutputBook(After:=wbOpen.Sheets("Sheet1"))
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.