Skjule linier på anden fane

Denne her skifter til Ark2 og skjuler/viser række 1:10.
Og skifter så tilbage til arket du stod på.

NuværendeArk = ActiveSheet.Name
ArkNavn = "Ark2"
Sheets(ArkNavn).Select
Sheets(ArkNavn).Rows("1:10").Select
If Selection.EntireRow.Hidden = False Then
Selection.EntireRow.Hidden = True
Else
Selection.EntireRow.Hidden = False
End If
ActiveWorkbook.Sheets(ArkNavn).Range("$A$1").Select
Sheets(NuværendeArk).Select

Ok, det fatter jeg ikke helt.
Jeg får en outside compile error.
Formodentligt pga. første linie, skal det rettes til ark navn på den fane makroen/knappen er?

Du skal rette linje 2 ArkNavn fra "Ark2" til at være "DitArkNavn" :)

Slettede alt og startede forfra, så virkede det. Jeg må have lavet noget kludder.
Mange tak for hjælpen, det var præsis hvad jeg manglede :-)

Super, sådan skal det være :)

Her er et svar