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 GetDate() 'Ask for a date for the new report, insert a new sheet and insert the 'date in "B4", "D77" and name sheet with date. Dim FormDate As Date FormDate = InputBox("Which Date to use?", "Form Date", Date) If FormDate = True Then ActiveSheet.Move After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count) ActiveSheet.Copy After:=Sheets(Sheets.Count) Range("B4") = FormDate Range("D77") = FormDate ActiveSheet.Name = FormDate End If If FormDate = False Then Exit Sub End If End Sub