Vise celle indhold.

Denne virker overalt I arket

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each c In Range(Target.Address)
'ret nedenstående arknavn til dit arknavn
Range("b1") = Sheets("Ark2").Range(c.Address)
Exit For
Next
End Sub


Sættes ind i dit Ark 1 modul.

Den nederste virker kun i A kolonnen

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A65536")) Is Nothing Then
For Each c In Range(Target.Address)
'ret nedenstående arknavn til dit arknavn
Range("b1") = Sheets("Ark2").Range(c.Address)
Exit For
Next
End If
End Sub

Virker fint.
Jeg har valgt at bruge den der gælder for hele arket.

Tak for hjælpen.

Ok så et svar

Tak for point. ;-))