Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
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 SaveASFile() Dim SaveAsPath As String Dim Ans As String Dim fileName As String >>>>>>> ActiveWorkbook.SaveAs fileName:="C:\Users\pike\Desktop\backup\" fileName = Replace(ThisWorkbook.Name, ".xlsm", ".xls") Ans = MsgBox("Do you want to Save A Copy?", vbQuestion + vbYesNo, "Confirm Please!") If Ans = vbYes Then Application.DisplayAlerts = False >>>>>>>>> Workbook.Settings.CheckComptiliblity = False ThisWorkbook.SaveAs SaveAsPath & fileName, 51 Application.DisplayAlerts = True 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.