You're ny hero again! I got it saved. The only problem is it also saved the
workbook into the same folder and closed the workbook. I would like to just
save the worksheet and be able to continue working in the workbook. I'll try
to figure that one out. If you have any suggestions, I would appreciate them.

Thanks again,

Bigjim

"RyanH" wrote:

This is the type code I would use. I got it to work for me.

Private Sub CommandButton6_Click()

Dim FilePathName As String

Sheets("quicksilver asc").Range("C8:C10").Copy
Sheets("quicksilver asc F").Range("C8:C10").PasteSpecial _
Paste:=xlPasteValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False

' save worksheet with this file name
FilePathName = "C:\field tickets\" & Range("L8") & Range("B14") & ".xls"

With ActiveWorkbook
.Sheets("quicksilver asc f").SaveAs Filename:=FilePathName
.Close False
End With

End Sub

Hope this helps! If so please let me know and click "YES" below.
--
Cheers,
Ryan


"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