Save file with variant name from an input box

[Tempy]

Hi all,
I am getting a variant from an input box and want to use this varaint as
the file name?

I am a biginner an need some help with some code if possible please.

Tempy

 

[Frank Kabel]

Hi
without much error checking:
sub save_it()
Dim fname
fname = inputbox ("Enter a filename")
if fname <>"" then
fname = fname & ".xls"
ActiveWorkbook.SaveAs Filename:=fname
end if
end sub

 

[Tom Ogilvy]

You might want to use the built in dialogs for this

Dim fname as String
fname = Application.GetSaveAsFilename()
if fname <> "False" then
Activeworkbook.SaveAs fName
End if

This also allows the user to choose a location using the mouse.