MACRO in a Loop Problem

[Berj]

Dear Anybody.

Consider this code:

Sub Macro41()
' Print ALL

Dim counter As Integer
For counter = 1 To 5
Call Over
Call Macro(counter)
Call Last
Next counter

End Sub

A few problems-
1. I want to address Macro1, Macro2, Macro3 … but it it gives me an error on
the Call Macro line. How can I make it work?
2. I want the number 5 (final value of the loop) to be the contents of C2
cell of the current sheet and file the Macro41 is in.


Thanks in Advance.

 

[Nigel]

Use this, substitute your macro number for x

Application.Run ("Macro" & x)

 

[Berj]

Thanks.
I used the following, and the loop worked fine.


Sub Macro41()

' Print ALL
Dim x As Integer
For x = 1 To 5
Call Over7A
Application.Run ("Macro" & x)
Call Last7A
Next x

End Sub

But still I have this problem of the number 5 (the final value of the loop).
I want the number 5 to be the contents of cell C2 of the current sheet of a
file named ‘Name List.xls’.