P.
Např.:
Private Sub Worksheet_Activate()
Dim adresa_bunky As String
Application.EnableEvents = False
Sheets(List1.Name).Select
adresa_bunky = ActiveCell.Address
Sheets(List2.Name).Select
Sheets(List2.Name).Range(adresa_bunky).Select
Application.EnableEvents = True
End Subcitovat