Dim objSourceWb As Workbook
Dim objNewWb As Workbook
Set objNewWb = ActiveWorkbook
With objNewWb
.SaveAs "Auszug aus " & objSourceWb.Name
strTempPath = .FullName 'der temporäre Pfad
usw.
Anfängerfrage:
Was muss ich machen, wenn ich nicht nur das aktuelle Blatt, sondern mehrere
Blätter in eine neue Datei übernehmen will?
z.B.
Set objNewWb = ActiveWorkbook & Worksheets("Test") 'geht vermutlich nicht
Vielen Dank im Voraus
Gruß Horst