Hvor står det aktive felt på et andet akr ?

Option Explicit
Dim MySheet As Worksheet, MyCell As Range, OldSheet As Worksheet, CellAddress As String
Const ArkNavn As String = "Ark2"
Sub AktivCelleIArk()
    Set OldSheet = ActiveSheet
    Set MySheet = Sheets(ArkNavn)
    MySheet.Activate
    Set MyCell = Selection
    CellAddress = MyCell.Address
    OldSheet.Activate
    ActiveCell = CellAddress
End Sub