copy a sheet to a sheet within another workbook - WITHOUT buttons from the first shee

Joined
Feb 21, 2006
Messages
1
Reaction score
0
i am trying to copy a sheet to a sheet within another workbook and save a copy of it- WITHOUT the VB buttons from the source sheet.

this is my code

Dim wk_PT As Workbook
Dim this_path As String

this_path = ActiveWorkbook.Path

Range("A1:T88").Copy
Set wk_PT = Workbooks.Open(this_path & "\PT.xls")

wk_PT.Activate
wk_PT.Sheets("Database").Paste Destination:=Cells(1, 1)
wk_PT.SaveCopyAs (this_path & "\" & strProsjekt & "-PT.xls")
wk_PT.Close

it works ok, except the buttons from the first gets copied as well.

any ideas ?
 
Back
Top