Prozedur abbrechen

mit dem Makro wird ein neues Tabellenblatt angelegt und mit dem Namen aus C9 Tabelle1 benannt, wenn aber Zelle C9 in Tabelle1 leer ist, soll abgebrochen und kein neues Tabellenblatt angelegt werden.

Vielen Dank im Voraus

Sub neuesBlatt()
Dim WS As Worksheet
Set WS = Worksheets.Add
With WS
.Name = Sheets("Tabelle1").[c9]
.Move after:=Sheets(Sheets.Count)
End With
End Sub