I am trying to run a macro in Excel and keep running out of Stack space can
anyone see what is wrong (probably a lot) with this macro.

Sub Macro2()
'
' Macro2 Macro
' Macro recorded 17/12/2007 by RLamb2
'

'
Range("A2").Select
Application.Run "'Export from APC.xls'!Changelength"
End Sub

Sub Changelength()

If Len(ActiveCell) = 0 Then
Application.Run "'Export from APC.xls'!Extractdate"
End If
If Len(ActiveCell) = 4 Then
Selection.Offset(1, 0).Select
End If
If Len(ActiveCell) = 3 Then
ActiveCell.Formula = "'0" & ActiveCell.Formula
End If
Selection.Offset(1, 0).Select
Application.Run "'Export from APC.xls'!Checklength"

End Sub