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