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 ?
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 ?