Blattname ermitteln

Thema: Allgemein - Gruppe Arbeitsblatt

Arbeitsmappe

015798    004997

Problem: Wie kann ich ermitteln, ob eine Blattname bereits vorhanden ist?

StandardModule: basMain

Sub AbfrageTabellenblatt()
   Dim sWks As String
   sWks = InputBox(prompt:="Gesuchtes Blatt:")
   If sWks = "" Then Exit Sub
   On Error GoTo ErrorHandler
   Worksheets(sWks).Select
   End
ErrorHandler:
   MsgBox "Blatt " & sWks & " nicht vorhanden!"
End Sub