View Single Post
  #1   Report Post  
TroutKing
 
Posts: n/a
Default When I "Save As" I cannot get

I wrote a macro to save my documents with the file name that I need, but I
cannot get Excel to prompt me for the desired folder - I always have to
hardcode the folder. What am I doing wrong?

Sub Save()

'NAME AND SAVE SPREADSHEET
ChDir "C:\ExcelOutput\"
NEWFILENAME = ActiveSheet.Cells(1, 2).Value
ActiveWorkbook.SaveAs Filename:=NEWFILENAME & " " & Format (Date,
"mm.dd.yy") & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

End Sub