With ThisWorkbook.Worksheets("Sheet1")
Application.Run "'" & .Range("a1").Value & "'!MySub"
End with
--
Regards,
Tom Ogilvy

"Ronbo" wrote in message
...
In Workbook A I have procedures that execute and then it opens Workbook B.
I
now need to run procedures in workbook B.

The name "Workbook B" that Workbook A uses to open Workbook B is in Cell
A1.
There are numerous workbooks that Workbook A Opens based on the name in
cell
A1.

What I need is a way to call the procudures in the Workbook being opened
based on name in Cell A1.

I have tried...
Application.Run "'(Range("a1").Value)'!MySub"
Call (Range("a1").Value).MyModule.MySub

But can not get it to work.

Any help will be truly appreciated.

Regards,




I need a way of calling the procdures based upon various workbooks.