VBA, automatisch Tabellenblätter erstellen

Sub NeuesBlatt()
'Varialen deklarieren
Dim ws As Worksheet, wb As Workbook, sName As String
' Name des neuen Blattes auslesen
sName = ActiveWorkbook.Sheets(1).Range("A3")
Set wb = ActiveWorkbook
' Falls kein Blatt mit dem Namen existiert,
' wird ein Fehler auftreten. Diesen Fangen
' wir vorerst ab.
On Error Resume Next
Set ws = wb.Sheets(sName)
' Wenn kein Blatt mit dem Namen exisitiert...
If Err.Number = 9 Then
On Error GoTo 0
'... wird ein neues erstellt ...
Set ws = wb.Sheets.Add(, wb.Sheets(wb.Sheets.Count))
'... und sein Name gesetzt.
ws.Name = sName
End If
Set ws = Nothing
End Sub