Fehler vermeiden bei Textbox

[elamigo]

Hey kurz und knapp,

habe zum bennen des Tabellenblatt eine Textbox auf einer Userform. So in dieser Form, klappt auch super. Allerdings bekomme ich folglicherweise ein Fehler wenn ich keinen Eintrag in Textbox2 mache. Kann ich es irgendwie so einstellen, dass Textbox2 nicht pflicht ist?
Also kein Eintrag lässt den Namen des Tabellenblattes so. 

dies ist ein Teil des ganzen Makros, welches noch in eine neue Liste kopiert und andere Anpassungen macht. 

Code:

Sub forum()

Dim Tabellenblattname as string

       Tabellenblattname = TextBox2.Text
       
      Sheets("Tabelle1").Name = Tabellenblattname

End Sub

[Igelbauer]

Sorry, vertippt

[Igelbauer]

Hi

so in etwa
If Textbox2.Text = "" Then Exit Sub
nach dim ...
Gruss Igel

[elamigo]

perfekt danke!