Error 28 Out Of Stack Space

I added some code I got today and now when it runs i get the code 28 out of stack space.

Basically when the If has determined which macro to run, once that macro has ran that should be it.But if deletedates2 has ran, it reverts back to deletedates and starts again, then I get the error:

Sub deleteDates()
Dim sh As Worksheet
Dim lr As Long
Application.ScreenUpdating = False
'# Determin if (O:O) has been deleted#'
If Application.CountA(Range("$O:$O")) = 0 Then
Call DeleteDates2

[code].....