Neues Tabellenblatt mit definiertem Namen hinzufügen

[robot]

Hallo,

ich möchte ein neues Tabellenblatt mit einem vorgegebenen Namen einfügen.

Also so:
Private oSheet As Object

Sub Blatt_hinzufügen()
Set oSheet = Sheets.Add
oSheet.Activate
oSheet.Name = "Dateien"
'Dann mache irgendwas
End Sub

Geht so etwas kürzer?
So etwas geht ja  leider nicht:  Set oSheet = Sheets("Dateien").Add

[Kuwer]

Hallo,

Sub abc()

  ThisWorkbook.Worksheets.Add.Name = "Dateien"

End Sub

Gruß Uwe