'Save as' VBA

[Excelnoobisme]

Is there any code that will let user to type in the filename manually?

 

[Sektor]

What action you carry?

 

[Ruddles]

[FONT=Fixedsys]Dim sFilename As String[/FONT]
[FONT=Fixedsys] [/FONT]
[FONT=Fixedsys]sFilename= Application.GetSaveAsFilename[/FONT]
[FONT=Fixedsys]If sFilename = "False" Then[/FONT]
[FONT=Fixedsys]  [COLOR=green] ' user cancelled out - deal with it[/COLOR][/FONT]
[FONT=Fixedsys]Else[/FONT]
[FONT=Fixedsys]   [COLOR=green]' user selected a name - do the save[/COLOR][/FONT]
[FONT=Fixedsys]End If[/FONT]