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
|vba in excel to send reply for sent email including original message||2||64|
|in Excel 2007, what is wrong with my CHOOSE MATCH formula?||6||32|
|macro for active word document||4||39|
|Automating Excel Weekly Report||13||53|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
22 Experts available now in Live!