أهلا بك اخ كريم فى المنتدى
لقد تمت الإجابة والحل وعمل الكود من قبل استاذنا الكريم ياسر خليل ابو البراء له منا كل الحب والإحترام
وبعد اذن استاذنا الكبير اذا اذن لى ان اضع الكود لعموم الإستفادة
بارك الله فيك
أخى الكريم حاتم قم بوضع هذا الكود فى حدث الورقة وليس فى موديول
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1").Value = ActiveCell.Value
If ActiveCell = "" Then
Range("A1").Value = ActiveCell.Address
End If
End Sub
ولكم منى جزيل الشكر