dim myFileName as string

with activeworkbook
myfilename = "W:\Hebert\Operations\" _
& .Worksheets("OPENING STK").Range("b20").Value & ".xls"

.saveas filename:=myfilename, FileFormat:=xlWorkbookNormal
end with



RMires wrote:

It helps, but it's not quite that simple. I am also changing the file name at
the same time. I'm not quite sure how to connect the file location
"W:\Hebert\Operations" with the code that creates the file name
.Worksheets("OPENING STK").Range("b20").Value & ".xls"

"Eduardo" wrote:

Hi,

ActiveWorkbook.Save
ActiveWorkbook.SaveAs Filename:= _
"N:\2009 Uploads\GLL\GLL 2009 TB.xls", FileFormat:=xlExcel8,
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

Change the directory and name to fit your needs just need to change this
N:\2009 Uploads\GLL\GLL 2009 TB.xls

if this helps please click yes, thanks

"RMires" wrote:

I've created a button to save a file with a name created from a cell, but I
need to be able to save it to a particular location which is other than the
default location.

--

Dave Peterson