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.
Many Thanks
Sub All_In_One() Call Macro1 Call Macro2 Call Macro3 Call Macro4 Call Macro5 Call Macro6 Call Macro7 End Sub
Maybe something like this.
Sub All_In_One() Dim i As Integer, iMax As Integer On Error Resume Next iMax = [P4].Value On Error GoTo 0 Select Case iMax Case 1 To 7 For i = 1 To iMax Application.Run "Macro" & i Next End Select End Sub
Try:
Sub All_In_One() Dim x As Long: x = 1 Call Macro1 MsgBox x If Range("P1") = x Then Exit Sub x = x + 1 Call Macro2 If Range("P1") = x Then Exit Sub x = x + 1 Call Macro3 If Range("P1") = x Then Exit Sub x = x + 1 Call Macro4 If Range("P1") = x Then Exit Sub x = x + 1 Call Macro5 If Range("P1") = x Then Exit Sub x = x + 1 Call Macro6 If Range("P1") = x Then Exit Sub x = x + 1 Call Macro7 End Sub
You can say "THANK YOU" for help received by clicking the Star symbol at the bottom left of the helper's post.
Practice makes perfect. I'm very far from perfect so I'm still practising.
Hi Sir Mumps1,
Thank you so much. It worked perfectly
Many Thanks
You are very welcome.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
qexcel2 
Register To Reply
Bookmarks