017

Sub CreateFnNameAndRun()
Dim x
    For x = 1 To 3
        Application.Run "Func" & x
    Next
End Sub

Function func1()
    Debug.Print 1
End Function

Function func2()
    Debug.Print 2
End Function

Function func3()
    Debug.Print 3
End Function