We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
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.
|NEED LOOK FOR NUM||23||29|
|Importing specific cell from Excel to MS Access||17||51|
|Macro Modification to refresh non-contiguous Cells in a Worksheet||12||38|
|drag and drop a row in excel 2010||5||44|
Join the community of 500,000 technology professionals and ask your questions.