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.
Private Sub CommandButton2_Click() Dim strPath As String, strFileName As String Dim Extn As String, strFname As String Dim INUm As Long, CheckMe As Long strPath = "C:\Documents and Settings\Administrator\My Documents\Gary\project\New Folder\" strFileName = "Summary_" & Format(Sheets("Low Volume").Range("C5").Value, "YYYY-MM-DD") Extn = ".xls" strFname = Dir(strPath & strFileName & "_" & INUm & Extn) Do While Len(strFname) <> 0 INUm = INUm + 1 strFname = Dir(strPath & strFileName & "_" & INUm & Extn) Loop Sheets("Low Volume").Copy ActiveWorkbook.SaveAs Filename:=strPath & strFileName & "_" & INUm & Extn ActiveWorkbook.Close CheckMe = MsgBox("Clear Contents?", vbYesNo) If CheckMe = vbYes Then Sheets("Low Volume").Unprotect Sheets("DataSheet").Range("B2").Value ThisWorkbook.ActiveSheet.Range("B14:K414,W14:W414,N14:N414,Q14:Q414").ClearContents Sheets("Low Volume").Protect Sheets("DataSheet").Range("B2").Value End If End Sub
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.