Arbeitsblätter durchsuchen funktioniert nicht

Sub Speichern_Click()
Dim ws As Worksheet, bFound As Boolean
For Each ws In ActiveWorkbook.Sheets
If ws.Name = ActiveSheet.Cells(3, 2).Value Then          Nummer/Tabellenblatt mit dem Namen  _
vorhanden
MsgBox ("Auftrag schon vorhanden")
Exit Sub
End If
Next ws
If bFound = False Then
Call Anlegen
ElseIf [B3] = "" Then
MsgBox ("Auftragsnummer eingeben")
Exit Sub
End If
End Sub