Maybe something like:

Option Explicit
Sub testme01()

Dim newWks As Worksheet

ActiveSheet.Copy 'to a new workbook
Set newWks = ActiveSheet 'in that new workbook

With newWks
.Buttons.Delete
.Parent.SaveAs Filename:=ThisWorkbook.Path & "\" & .Name & ".xls", _
FileFormat:=xlWorkbookNormal
.Parent.Close savechanges:=False
End With
End Sub



Pete wrote:

Is it possible to have a button on a worksheet which
would output an excel file or a word file with just that
sheets information on it?

A lot of the cells contain formaulas.

Also how can I get the button to call the file by the
worksheet tab name

--

Dave Peterson