Danke im Voraus
Sub Blatt_kopieren_Namen_löschen()
Dim Q As Worksheet 'Q wie Quelle
Dim N As Name
ActiveSheet.Copy 'nach eine Sheet-Copy ist das aktive Sheet immer die neue
For Each N In ThisWorkbook.Names
If N.RefersToRange.Parent.Name = ActiveSheet.Name Then N.Delete
Next
End Sub
VG
Dim TBNeu As Worksheet
ActiveSheet.Copy After:=Sheets(Sheets.Count)
Set TBNeu = ActiveSheet 'Das Neue
With TBNeu
Union(.Range("AA"), .Range("BB")).ClearContents
End With
LG UweD