Sub التنقل_الى_الصفحات() Application.CommandBars("Workbook Tabs").ShowPopup Range("A1").SelectEnd Sub