Application.Dialogs(xlDialogSaveAs) = res ???

[Corey]

res = InputBox("Enter a file name ? ", "Company Name here..")
If res = "" Then Exit Sub
ThisWorkbook.Save
With ActiveWorkbook
Worksheets(Array("A", "1")).Copy
Application.Dialogs(xlDialogSaveAs) = res <========= Error here
End With
End Sub


I get an error in the above.
How do i set res to be the new file name ?

Corey....

 

[Norman Jones]

Hi Corey,

Try replacing:

Application.Dialogs(xlDialogSaveAs) = res

with

ActiveWorkbook.SaveAs Filename:=res & ".xls"

 

[Leith Ross]

Hello Corey,

The SaveAs Dialog offered by Excel requires you manually enter the new
file name. It can't be assigned by a variable. Other options would
include the API SaveAs Dialog which does allow assignments through
variables or by using the FSO (File System Object) script.

Sincerely,
Leith Ross