Flyt til næste sheet

Public Sub FlytArkTilbage()
Dim ForrigeArk As String
For Each Ws In Worksheets
  If Ws.Name = ActiveSheet.Name Then
  Worksheets(ForrigeArk).Select
  End If
    ForrigeArk = Ws.Name
  Next Ws
End Sub

Public Sub FlytArkFrem()
Dim NæsteArk As String, A As Integer
A = 0
For Each Ws In Worksheets
    If A = 1 Then
    Worksheets(Ws.Name).Select
    Exit Sub
    End If
  If Ws.Name = ActiveSheet.Name Then
  A = 1
  End If
  Next Ws
End Sub

Kanon TAK

selv tak ;-)