宏循環中的宏

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