لجعل ال private sub تعمل على كافة ال workbook

[البراء مصطفى]

السلام عليكم اساتذتى الكرام

انا لدى private sub والتى تعمل على صفحات معينة فقط وانا اريدها تعمل على كافة الملف

 

وهى كالتالى

 

(Private Sub Workbook_Change(ByVal Target As Range

Select Case 1

Case Cells(Target.Row, 4).Value >= 100

"عداد"=Cells(Target.Row, 5).Value

Case Cells(Target.Row, 4).Value < 100

"مشروع"=Cells(Target.Row, 5).Value

End Select

End Sub

 

 

وجزاكم الله خيرا

[البراء مصطفى]

للرفع