اخي الحبيب
هشام شلبي
اشكرك علي كلماتك التي اثلجت قلبي
بارك الله فيك
اخي يوسف عطا
في حدث Worksheet_Change
غير الجزء التالي
For i = 9 To 207
For ii = 10 To 207
الي الكودالتالي
For i = 9 To 208
For ii = 10 To 209
و سيعمل ان شاء الله
و بخصوص عدم الاخفاء
قم بحذف الكود التالي
Private Sub Worksheet_Deactivate()
Sheets("شيت طبع كشف الملاحظة").Visible = False
End Sub
تحياتي