Make a loop that goes around around and around

[Kristian Nilsson]

Hi there!
Is there anyone who can help me to make this schedule that i linked
to loop? Right now it stops and then the numbers vabish but
I would really like it to go around when i press next week, and it to go
back when i press last week.

The numbers will then be replaced by name since this will be a
rotating schedule.. Hope there is anyone out there who can help me.
Best regards
Kristian

[rollis13]

Have a try with these minor changes to your code:

Option Explicit

Sub Week_Up()
'
'macro recorded the 25/11/2012 by rollis13
'
    Application.ScreenUpdating = False
    If Range("E1").Value > 51 Then Exit Sub
    If IsNumeric(Range("E1")) Then Range("E1") = Range("E1") + 1
    Range("B12:F12").Cut
    Range("B14").Select
    ActiveSheet.Paste
    Range("B3:F11").Cut
    Range("B4").Select
    ActiveSheet.Paste
    Range("B14:F14").Cut
    Range("B3").Select
    ActiveSheet.Paste
    Range("A1").Select
    Application.ScreenUpdating = True
    
End Sub

Sub Week_Down()
'
'macro recorded the 25/11/2012 by rollis13
'
    Application.ScreenUpdating = False
    If Range("E1").Value < 2 Then Exit Sub
    If IsNumeric(Range("E1")) Then Range("E1") = Range("E1") - 1
    Range("B3:F3").Cut
    Range("B14").Select
    ActiveSheet.Paste
    Range("B4:F12").Cut
    Range("B3").Select
    ActiveSheet.Paste
    Range("B14:F14").Cut
    Range("B12").Select
    ActiveSheet.Paste
    Range("A1").Select
    Application.ScreenUpdating = True

End Sub