Hi Roc,
If "reading" means last change in a cell, I suggest to put this into your worksheet module :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then ActiveSheet.Cells(1, 2) = Target.Address & " at " & Date & "/" & Time
End Sub
If "reading" means last selection of cell for looking its value then :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then ActiveSheet.Cells(1, 2) = Target.Address & " at " & Date & "/" & Time
End Sub
Hope this helps