Ophæve arkmarkering med makro

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim mySheet As Variant
    Dim myASheet As Worksheet
   
    Set myASheet = ActiveSheet
    Application.ScreenUpdating = False
   
    For Each mySheet In ThisWorkbook.Worksheets
        mySheet.Activate
        Cells(1, 1).Select
    Next
    myASheet.Select
   
    Application.ScreenUpdating = True

End Sub

Ovenstående makro sættes ind i modulen ThisWorkbook (jeg har engelsk Excel - jeg ved ikke hvad det hedder på dansk. Noget med "DetteRegnark").

Det vil sikre at alle arker har kun en celle markeret, nemlig A1.

Det virker ikke

Det virker kun når du lukker regnskabsarket(og så skal du gemme ændringer). Når du åbner det igen, så er det gjort.

Arhhh, på den måde

Det virker fint så.

Det eneste mærkelige er at folk vel som oftest gemmer inden de lukker arket, og så bliver de spurgt om de vil gemme igen når de så lukker arket.

Nej det gør de ikke mere. Det eneste som du har gemt er koden!

Prøv og åbne, marker stor områder, og luk igen, så kan du se hvad jeg mener.

Tak fo point.  ;-)