VBA - Rutine som køre hvert minut

Hvilken version ?

Læg denne kode i mappens ThisWorkbook modul

Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:01:00"), "skiftark"
End Sub

og i et almindeligt (standard) modul

Sub skiftark()
    If ActiveSheet.Name = "Ark1" Then
        Sheets("Ark2").Select
    Else
        Sheets("ark1").Select
    End If
End Sub

Retselv arknavne til dee rigtige.

Hej jkrons

Sender du et svar?

Lars

Et svar :-)