Call Only a Defined Number of Macros based on cell Value

[qexcel2]

Hi,
I have this code which calls other macros. I want that I would write a value say 4 in cell P1. Then this code Sub All_In_One should only call first 4 macros i.e till Macro no.4. It should not call Macro5, Macro6 and Macro7.

Sub All_In_One()
Call Macro1
Call Macro2
Call Macro3
Call Macro4
Call Macro5
Call Macro6
Call Macro7
End Sub

Many Thanks