Combineren van 2 VBA codes

[adile]

Goedenavond,

Ik heb 2 VBA codes, deze wil ik combineren.
de eerste code zorget er voor dat 3 sheets die ik heb Blad1, Blad2 en Blad3 om de 20 seconden opkomen als een soort van slideshow.

Sub TheSub()
    ''''''''''''''''''''''''
    ' Your code here
    
    If ActiveSheet.Name = "Actie- Mededelingenlijst" Then
    
    Blad3.Activate
    
    ElseIf ActiveSheet.Name = "Consignatieroosters" Then
       
    Blad4.Activate
    
    Else
    
    Blad2.Activate
    
    End If
    
    ''''''''''''''''''''''''
    StartTimer  ' Reschedule the procedure

Deze code wil ik combineren met een code die zorgt dat sheet blad1 (actie-Mededelingenlijst)
automatisch naar beneden scrolt totdat er geen info meer is in kolom C.

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Sub SlowScroll()
    Dim r As Long
    Dim bottomC As Long
    bottomC = Range("C" & Rows.Count).End(xlUp).Row - 5
    Range("A1").Select
    Do
        DoEvents
        Sleep 3000  'Pause 20ms - Scroll speed adjust
        ActiveWindow.SmallScroll Down:=1
        r = r + 1
        If r = bottomC Then
            Range("A4").Select: r = 0
            Exit Do
        End If
    Loop
End Sub

Wat ik nu wil is dat bij de slideshow, werkbladen Blad3 en Blad 4 gewoon om de 20 seconden overgaan. en blad 1 pas over gaat naar de volgende sheet als hij uitgescrolt is.

Is dit mogelijk?

Adile