hi----you can to move this share to Vba Dep.
You can to Use this code in the page's Code
any Active Cell Will shown in cell A1
Code:
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