[Tasos]

Γεια σε όλους!
Σπύρο, Θανάση, διαβάζοντας τις απαντήσεις σας κατάλαβα ότι ήμουν εντελώς απρόσεκτος όταν διάβαζα το μήνυμα του φίλου μας! Με συγχωρείτε και θεωρήστε την απάντηση μου άκυρη.
Αν μου επιτρέπετε θα πρότεινα το εξής:

Κώδικας στη λειτουργική μονάδα του φύλλου 'Φύλλο1' :

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Target.Column = 1 Then
        If Target.Row > 1 Then
            Range("A1") = Target.Value
        End If
    End If
End Sub

Τύπος στο κελί A1 του φύλλου 'Φύλλο2' : =Φύλλο1!A1

Η διαφορά είναι ότι δεν χάνεται το ιστορικό Αναίρεσης (Undo) στο φύλλο 'Φύλλο2'

Συγγνώμη αν σας κούρασα.

Τάσος