paste into Save As... box

Hi Steve

Run this code:

Sub TryThis()
Dim SFileName As String
SFileName = Sheets("Sheet1").Range("A1")
Application.Dialogs(xlDialogSaveAs).Show SFileName
End Sub

Dave

OzGrid Business Applications

A similar problem...

hi,

i am trying to do a similar thing, but i want the following to appear in a "File name:" line

blinking cursor space current date and time. here's an example with formatting:

| (2001-04-17, 09-05 PM)

so that i can add any name in front and have something like:

report (2001-04-17, 09-05 PM).xls as a result.

I know it is kind of stupid because every file has a time stamp already, but i just want to be able to add time stamp to the name only when i need it and otherwise keep saving the file with the old time stamp. THANKS!

It worked great! Thanks Dave. : I need to be able to open the Save As... box and paste the contents of a cell for a filename, BUT let the user still be able to choose the location for the file. Then they can click the Save As... button.