استاذ mostah</b> يمكنك عمل ذلك بنفسك

انقر على الزر بالماوس الايمن و من القاءمة المفتوحة انقر Assing Macro وبين السطرين ادخل مثلا Activate.("ادخال بيانات الموظف")Sheets

Sub Activate_sheet()
 Sheets("ادخال بيانات الموظف").Activate
End Sub
 Sub Activate_sheet1()
  Sheets("بيانات الموظف").Activate
  End Sub
Sub Activate_sheet2()
  Sheets("ادخال بيانات الاصناف").Activate
  End Sub
Sub Activate_sheet3()
  Sheets("بيانات الاصناف").Activate
  End Sub
Sub Activate_sheet4()
  Sheets("الوارد").Activate
 End Sub
Sub Activate_sheet5()
  Sheets("الصرف").Activate
 End Sub
Sub Activate_sheet6()
  Sheets("بطاقة الصنف").Activate
  End Sub
Sub Activate_sheet7()
  Sheets("تقريرالوارد").Activate
 End Sub
Sub Activate_sheet8()
  Sheets("تقريرالصرف").Activate
 End Sub
Sub Activate_sheet9()
  Sheets("جرد الشهري").Activate
  End Sub
Sub Activate_sheet10()
  Sheets("دوران المخزون").Activate
  End Sub
Sub Activate_sheet11()
  Sheets("بيان احصائي").Activate
  End Sub
Sub Activate_sheet12()
  Sheets("ورقة1").Activate
  End Sub