Set of macros giving out of stack space error

[ExcelFailure]

Hello,

I wonder if someone can help, I have the below set of macros that run for a few hours and then give run time error out of stack space. Can anyone see what the issue is?

I'm pretty certain that it's not the cleanest way to do what I need, so an alternate way can be suggested if that's easier. I'm basically just wanting it to loop through activating 3 sheets and then refreshing the data once in each revolution

Sub Refresh()
ActiveWorkbook.RefreshAll
SlidetoTwo
End Sub

Sub ShowFirstSheet()
Sheets("Dashboard 1").Activate
SlidetoTwo
End Sub

Sub SlidetoTwo()
Application.Wait Now + TimeValue("00:00:20")
Sheets("Dashboard 2").Activate
SlidetoThree
End Sub

Sub SlidetoThree()
Application.Wait Now + TimeValue("00:00:20")
Sheets("Dashboard 3").Activate
SlideToOne
End Sub

Sub SlideToOne()
Application.Wait Now + TimeValue("00:00:20")
Sheets("Dashboard 1").Activate
Refresh
End Sub

Thanks in advance for any help!

[Artik]

Assuming no one changes the active workbook to another, the following code should be more secure (though not perfect!)

Sub Refresh()
    ActiveWorkbook.RefreshAll
    Application.OnTime Now + TimeValue("00:00:20"), "SlidetoTwo"
End Sub

Sub ShowFirstSheet()
    Sheets("Dashboard 1").Activate
    Application.OnTime Now + TimeValue("00:00:20"), "SlidetoTwo"
End Sub

Sub SlidetoTwo()
    Sheets("Dashboard 2").Activate
    Application.OnTime Now + TimeValue("00:00:20"), "SlidetoThree"
End Sub

Sub SlidetoThree()
    Sheets("Dashboard 3").Activate
    Application.OnTime Now + TimeValue("00:00:20"), "SlideToOne"
End Sub

Sub SlideToOne()
    Sheets("Dashboard 1").Activate
    Refresh
End Sub

Artik

[ExcelFailure]

Thanks Artik, I'll give it a go