Application.Dialogs(xlDialogSaveAs) = res ???

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....

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

Hi Corey,

Try replacing:

> Application.Dialogs(xlDialogSaveAs) = res

with

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


---
Regards,
Norman

"Corey" <coreymcconnell@splicetech.com.au> wrote in message
news:eJx74SnmGHA.4992@TK2MSFTNGP03.phx.gbl...
> 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....
>
>
>
>
>