if ActiveWorkbook.Sheets(textbox1).Name <> "" then
msgbox "bu isimde sayfa var"
Exit sub
End if
Denemem mümkün olmadı ama aşağıdaki kod işinize yarayabilir