Message box to prompt for file name upon save

G

Greg Snidow

Greetings everyone. I have, among other things, the following lines in a
macro to save a worksheet

ActiveWorkbook.SaveAs Filename:= _
"\\MyURL\DAILY_PRODUCTION\NEW\test.txt" _
, FileFormat:=xlText, CreateBackup:=False

This works great, except that I don't want the file to be called "test" in
production. I need to have a dialog box pop up to ask me what to enter as
the name

I tried
....NEW\" & MsgBox & ".txt"

but it does not work. Any ideas?
 
M

Mike H

Maybe this,

But note I include no error checking for illegal filenames which you may
want to consider

response = InputBox("enter filename")
If response <> "" Then
ActiveWorkbook.SaveAs Filename:="\\MyURL\DAILY_PRODUCTION\NEW" & response &
".txt" _
, FileFormat:=xlText, CreateBackup:=False
End If


Mike
 
G

Greg Snidow

Mike, that worked like a charm, thank you.

Mike H said:
Maybe this,

But note I include no error checking for illegal filenames which you may
want to consider

response = InputBox("enter filename")
If response <> "" Then
ActiveWorkbook.SaveAs Filename:="\\MyURL\DAILY_PRODUCTION\NEW" & response &
".txt" _
, FileFormat:=xlText, CreateBackup:=False
End If


Mike
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top