Soz i have posted the first part of this query twice.
i now have the command button working.
so can anyone help with the second part ie deleting
colums. Is there anyway you can stop the command button
from transfering to the new sheet.

thanks for this

mark.
-----Original Message-----
The following code works well, however how can I change
this to run with a command button.
Also is there any way I could delete some columns from
the sheets as well.

Private Sub Workbook_Open()
Dim wb As Workbook
'copy all sheets
Worksheets.Copy
Set wb = ActiveWorkbook
Application.DisplayAlerts = False
'delete the sheets you want
wb.Sheets(Array("Suspense", "RCA exc RIM", "Operations
summary", "RCA incl RIM", "First Qtr", "Second
Qtr", "Third Qtr", "Fourth Qtr")).Delete
Application.DisplayAlerts = True

End Sub

Thanks

Mark

.