Consecutive Auto Run

[mysterious-dr-x]

So I have 3 macros, ImportData, RemoveDuplicates & Sort (all of which I feel are rather self explanatory)

I know this method of autorun for just the 1st....

Private Sub Workbook_Open()
    Call ImportData
End Sub

....but how do I do all 3 consecutively?


EDIT: The following seems to work, is this acceptable practice?

Private Sub Workbook_Open()
    Call ImportData
    Call RemoveDuplicates
    Call Sort
End Sub

 

[villy]

My suggestion if you would like to run all three macros then call the next macro inside your first one and the third one in your second...

 

[GTO]

...
EDIT: The following seems to work, is this acceptable practice?

Private Sub Workbook_Open()
    Call ImportData
    Call RemoveDuplicates
    Call Sort
End Sub

That is fine. I would humbly suggest changing the name of the last one. Not that it won't work, but naming stuff after things that exist natively, in this case a Method, can be confusing later.

Hope that helps,

Mark

 

[Ruddles]

My suggestion if you would like to run all three macros then call the next macro inside your first one and the third one in your second...

Personally I wouldn't 'chain' a subroutine in that way unless I needed to execute some additional code after control had returned from the subroutine.

If the routines can genuinely be run independently, I would prefer to call them in turn from a 'driver' macro where it's obvious that they are independent from each other. One look at the driver routine and you know immediately what the relationship between the various subroutines is.

But that's just me!

 

[mysterious-dr-x]

If the routines can genuinely be run independently, I would prefer to call them in turn from a 'driver' macro where it's obvious that they are independent from each other. One look at the driver routine and you know immediately what the relationship between the various subroutines is.

But that's just me!

How would you go about doing that?

 

[wigi]

How would you go about doing that?

That's what you did in your EDIT to your post, if I understand correctly what Ruddles means.

 

[mysterious-dr-x]

That's what you did in your EDIT to your post, if I understand correctly what Ruddles means.

If you are right, then that is nice & simple.

 

[Ruddles]

How would you go about doing that?

 Private Sub Workbook_Open()
   Call ImportData
   Call RemoveDuplicates
   Call Sort
End Sub

</PRE>