السلام عليكم اخى الحبيب وجدت الحل الكود التالى ـــــــ Sub SheetList_CP() On Error Resume Next Application.CommandBars("Workbook Tabs").Controls("More Sheets...").Execute If Err.Number > 0 Then Err.Clear Application.CommandBars("Workbook Tabs").ShowPopup End If On Error GoTo 0 End Sub ـــــــــــــــــــــــ والتوضيح اكثر فى المرفق
التنقل بين جميع الشيتات بزر واحد.rar