Seeking to Copy sheets to new book- visible cells, values only & omit buttons

[auto.pilot]

As the title says... my workbook has sheets called Summary and Detail. I recorded the following, which simply creates a new workbook with two sheets. However, the new sheets include all the formulas, filters and two buttons. I'd like to run this and display only the values, visible cells and omit the buttons on the newly created workbook.

How can I do this?

Thanks in advance.


Jim

 Sub newBook()
'
' newBook Macro
'

'
    Sheets(Array("Summary", "Detail")).Select
    Sheets("Detail").Activate
    ActiveSheet.Buttons.Add(604.5, 78, 66, 48).Select
    ActiveSheet.Buttons.Add(687.75, 86.25, 51, 36).Select
    Sheets(Array("Summary", "Detail")).Copy
End Sub

 

[MattH1]

Sub CopySpecial()

Dim wb As Workbook
Set wb= Workbooks.Add

Application.CopyObjectsWithCells=False
     Set rng = ThisWorkbook.Worksheets(TabName).Cells.SpecialCells(xlCellTypeVisible)
     rng.Copy
     wb.Worksheets("Sheet1").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CopyObjectsWithCells=True

This will copy over Visible Cells and paste their values into a new workbook. Add this to your code as you see fit.
Let me know if you have any problems with this!

 

[auto.pilot]

yes, works. In addition, I'd like to copy multiple sheets and paste with formats and column widths. I attempted to alter the code but was unable to get the desired results. Appreciate your assistance.

thanks

Jim