Prüfen ob Blatt vorhanden ist

ich hätte gern gewusst, ob es eine bessere Möglichkeit gibt das Vorhandensein eines bestimmten Tabellenblattes abzuprüfen, als meine untenstehende.

Vielen Dank für die Hilfe

Sub test()
Dim i%
Dim gefunden as boolean

gefunden = false
for i = 1 to worksheets.count
if sheets(i).name = "Tabelle1" then
gefunden = true
end if
next i
if gefunden = true then
msgbox "Tabelle1 ist vorhanden"
end if
End Sub

Phill