çalışma kitabında ilgili sayfa var ise devam et yoksa kapat nasıl yazılır?

[olymposss]

sn hocalarım

If Sheets(textbox5.value).Value = True Then
GoTo sdd
Else
exit sub
end if

bu kod ile textbox5 teki ad ile kayıtlı olan çalışma sayfasının kitapta bulunması halinde sdd koduna değilse exit yaptırmaya çalışıyorum ancak koyu olan satırda hata veriyor.sorgulamaya çalıştığım textbox5 teki isimle bir çalışma sayfası varmı yokmu?
bu kodu düzeltmemde yardımcı olabilirmsiniz.

yardımlarınız için çok teşekkür ederim.
saygılar:yardim:

 

[zafer]

Merhaba


For i = 1 To Sheets.Count
If texbox5 = Sheets(i).Name Then Exit Sub
Next

 

[Recep İpek]

Aşağıdaki kodları deneyiniz.

Private Sub SayfaBul()
Dim kontrol As Boolean
kontrol = False
For i = 1 To Worksheets.Count
If Sheets(i).Name = TextBox5.Value Then
kontrol = True
End If
Next i
If kontrol = True Then
MsgBox "OK"
':sdd kodlarınız
Else
MsgBox "NOK"
'Exit Sub
End If
End Sub