宏循环中的宏

Question

我试图运行一个宏来循环某些其他的宏，但它不工作。

每个单独的宏？他们应该什么来，我已经测试过他们，但试图运行下面的代码，循环的作品以外的第一个宏时，再没有什么事情发生。

我已经尝试了各种不同的循环方法（最新版本如下），包括已经发布在本网站上的方法。

Sub MasterMacro() 

Dim EndCriterion As Long 
Dim i As Long 

Cells.Find(What:="Step", After:=Cells(1, 1), LookAt:=xlPart).Select 
Selection.End(xlDown).Select 
EndCriterion = ActiveCell.Row 

Application.Run "CColumnFind" 

For i = 1 To EndCriterion 

    Application.Run "Stepper" 
    Application.Run "RetrieveIdeal" 
    Application.Run "RecompileArray" 
    Application.Run "Return" 

Next i 

Application.ScreenUpdating = False 

End Sub 

`

Answer 1

的最佳答案，但很难说这是怎么回事在其它宏...

Sub MasterMacro() 

Dim EndCriterion As Long 
Dim i As Long, f As Range 

Set f = Cells.Find(What:="Step", After:=Cells(1, 1), LookAt:=xlPart) 
If Not f Is Nothing Then 
    EndCriterion = f.End(xlDown).Row 
Else 
    MsgBox "'Step' not found!" 
    Exit Sub 
End If 

CColumnFind 

For i = 1 To EndCriterion 
     Stepper 
    RetrieveIdeal 
    RecompileArray 
    Return 

Next i 

Application.ScreenUpdating = False 

End Sub