That won't work. I need to be able to just save the worksheet as a file in a
folder and keep working in the workbook. I will be creating seveal files
daily with this workbook and need to save the completed sheet as a new file
and then start over on another one.

thanks,

Bigjim

"JLGWhiz" wrote:

You will probably have to create a new workbook, copy the sheet over to it,
then delete the sheet from the source document.

"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