Are you sure you didn't use SaveWorkspace?

"bigjim" wrote:

I've used this same code in the past and it worked, but its not working in
this workbook. Need some help. I'm using Excel 2003 and want save a
worksheet in my workbook as a separte file using a filename generated from
the worksheet. Here is the code I'm using:

Private Sub CommandButton6_Click()


Sheets("quicksilver asc").Select
Range("c8:c10").Select
Selection.Copy
Sheets("quicksilver asc f").Select
Sheets("quicksilver asc F").Range("c8:c10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False



Sheets("quicksilver asc f").Copy


Dim strappend As String
Dim strpath As String
Dim str3 As String

strappend = ActiveSheet.Range("l8")
strpath = "c:\field tickets\"
str3 = ActiveSheet.Range("b14")

fsavename = strpath & strappend & str3 & ".xls"

ActiveWorkbook.Sheets("quicksilver asc f").SaveAs fsavename
ActiveWorkbook.Close False

End Sub