Thank you again....!!

"Dave Peterson" wrote:

You didn't use "mm dd yyyy" as your format <bg.

I don't like spaces in my filename, and it might make it easier to read if you
use underscores:

fname = .Range("B4").Value & "_" & _
Format(.Range("E6").Value, "yyyy_mm_dd") & ".xls"

But this is just a personal preference.


David wrote:

I got it....here's what I ended up with...

Dim fname As String
With ActiveWorkbook.Worksheets(1)
fname = .Range("B4").Value & Format(.Range("E6").Value, "mmddyyyy") & ".xls"
.SaveAs "C:\Franchise_GPC\Ben Info\Big Picture 2005\" & fname
End With

Thanks again for the help!!

"Dave Peterson" wrote:

Dim fname as String
With ActiveWorkbook.worksheets(1)
fname = .Range("B4").Value & .Range("E6") & ".xls"
.SaveAs fname
End With

You missed the .worksheets(1) in front of E6.

Any chance that one of those cells contains a date--and that the value has
slashes in it (12/31/2005)?

If yes, this might help later...

Dim fname as String
With ActiveWorkbook.worksheets(1)
fname = format(.Range("B4").Value,"yyyymmdd") & .Range("E6") & ".xls"
.SaveAs fname
End With

If not, just ignore it.

David wrote:

I'm trying to save a file with two cells of data to create the filename. Here
is the code:
Dim fname
With ActiveWorkbook
fname = .Worksheets(1).Range("B4").Value & .Range("E6") & ".xls"
.SaveAs fname
End With

I'm getting stopped on the fname line. I don't think I have the combination
right. Can you help?

--

Dave Peterson


--

Dave Peterson