Kod:
For Each sayfa In Worksheets
If sayfa.Name = me.TextBox1.value Then
MsgBox "Bu isimden bir sayfa bulunmaktadır", vbCritical
Exit sub
End if
NextBirde alttaki kod vardı kendinize göre ayarlayabilirsiniz.
Sub Sayfabul()
Dim sayfaZafer As String
sayfaZafer = "zafer"
If Sayfaad(sayfaZafer) = True Then
MsgBox "VAR"
Else
MsgBox "YOK"
End If
' If Sayfaad(sayfaZafer) = False Then
' Sheets.Add(After:=Sheets(Sheets.Count)).Name = sayfaZafer
' ThisWorkbook.Sheets("Sayfa1").Select
' End If
End Sub
Function Sayfaad(syfad As String) As Boolean
Dim ws As Worksheet
On Error Resume Next
Set ws = Worksheets(syfad)
If Not ws Is Nothing Then Sayfaad = True
End Function