تم رفع هذا الكود فى مشاركة منفصله
حتى لا ننسى هذه المشاركة الخلية الاجبارية
تم ارفاق كود الحل من الفاضل _ أ / أبوعبد الله
مرفق الملف
force to fill.rar
و مرفق الكود
Private Sub Worksheet_Activate()
For Each cell In Range("my_rng")
If cell.Value = "" Then
MsgBox "fill cell " & cell.Address
cell.Select
End If
Next cell
End Sub
و يمكن تعديل نطاق الخلايا من تعديل نطاق my_rng
و لا تنسونا من صالح الدعاء