Ich erstelle per Makro ein neues Arbeitsblatt.
In dieses Arbeitsblatt werden einpaar Tabellenblätter kopiert.
Unteranderm auch das Blatt in dem der Code steht.
Ich möchte aber das der Code nicht in dem neuen Arbeitsblatt ist.
Wie kann ich verhindern das der Code in dem neuen Arbeitsblatt ist und das ich nicht nach "Makro aktivieren...." gefragt werde???
Danke
Carsten
Hier der Code:
Dim wb As Workbook
Dim wkb As Workbook
Set wkb = Workbooks.Add
ThisWorkbook.Worksheets(6).Copy After:=wkb.Worksheets(wkb.Worksheets.Count)
ActiveSheet.Protect
ThisWorkbook.Worksheets(2).Copy After:=wkb.Worksheets(wkb.Worksheets.Count)
ActiveSheet.Protect
ThisWorkbook.Worksheets(5).Copy After:=wkb.Worksheets(wkb.Worksheets.Count)
ActiveSheet.Protect
ThisWorkbook.Worksheets(3).Copy After:=wkb.Worksheets(wkb.Worksheets.Count)
ActiveSheet.Protect
ThisWorkbook.Worksheets(4).Copy After:=wkb.Worksheets(wkb.Worksheets.Count)
ActiveSheet.Protect
Sheets("Tabelle1").Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete 'Löschen der Tabelle1
Application.DisplayAlerts = True
'-------------------------------------------------------------------------------------
'Speichern der neuen Arbeitsmappe
On Error GoTo fehler
Dim TB As Worksheet
Dim Name$
Set TB = ActiveSheet
Name = TB.Range("F1") & ("\") & _
TB.Range("B1") & ".xls"
ActiveSheet.Protect
ActiveWorkbook.SaveAs Name
ActiveWorkbook.Close savechanges:=True