تم رفع هذا الكود فى مشاركة منفصله
	 
	
		 حتى لا ننسى هذه المشاركة   الخلية الاجبارية
	 
	
		                                                    
	 
	
		تم ارفاق كود الحل من الفاضل     _ أ / أبوعبد الله 
	 
	
		 
	 
	
		مرفق الملف                     
	 
	
		                    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                                              
	 
	
		   و لا تنسونا من صالح الدعاء