Ready to get started with anonymous questions today? It's easy! Learn more.
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.