كيف البحث عن شيت مخفي عند كتابة الاسم الخاص به

[حسن البدوي]

السلام عليكم

داخل هذا الملف قائمه اريد كتابة اسم العميل المسجل تلقائي الذي قمت باخفاء الشيت بتاعه للسرية

وعند الضغط علي تعديل يفتح مباشرة الشيت

الفاتورة الرئيسيه.xlsm

[حسين مامون]

جرب المرفق

Sub serchsheet()
Dim sh As Worksheet
Dim rng As Range
Set rng = Sheets("ÊÚÏíá_ÓÚÑ_ÇáÚãíá").Range("G2")
Application.ScreenUpdating = False
For Each sh In ThisWorkbook.Worksheets
  If sh.Name = rng.Text Then
     sh.Visible = True
     sh.Activate
     Exit For
     End If
     Next sh
Application.ScreenUpdating = True
End Sub

الفاتورة الرئيسية.xlsm