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!
Public Sub CmeSaveAs() Dim oldwkbk As String Dim excelwrk As Excel.Application Dim newdate As String Dim sInput As String Set excelwrk = Excel.Application excelwrk.Workbooks.Open "C:\Program Files\Cme\Template_DoNot_Open\Export_Cme_Template.xlsx" excelwrk.Visible = False sInput = InputBox("Enter File name here") ' saveas and then close please excelwrk.ActiveWorkbook.SaveAs "C:\Program Files\Cme\Cme_Export\" & sInput & "_" & newdate excelwrk.ActiveWorkbook.Close 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.