am besten wäre wenn man alle blätter mit den eigenschaften einer masterfolie belegen könnte.
Erstelle dein Masterblatt und benenne es zB: 'Master'
Sub NewSheet()
Sheets("Master").Select
Sheets("Master").Copy After:=Sheets(WorkSheets.Count)
End Sub