پرسش بررسی وجود یك شیت با نام خاص

[ظهور 313]

سلام و عرض ادب
میخواستم بدونم با چه كدی میشه فهمید كه شیتی با نام خاص (این نام از یك تكس باكس گرفته میشه) آیا در یك فایل اكسل وجود داره یا نه (برای هر دو حالت باید یك پیام داده بشه)
ممنون میشم راهنمایی بفرمایید

[iranweld]

با سلام

کد ذیل را تست کنید.

برای حساس نبودن جستجو به حروف بزرگ و کوچک از دستور Lcase استفاده شده است.

Sub TEST1()
k = 0
For Each Sheet In Worksheets
If LCase(Sheet.Name) = LCase(textbox1) Then
MsgBox Sheet.Name
k = 1
Exit For
End If
Next
If k = 0 Then MsgBox "This sheet Name not exist. "
End Sub