HI,

I have a 4 workbooks which my users might want to access at the same
time. I have a timer module that is used over all four books and runs
from personal.xls. I would like to call a sub kept in the active
workbook from within the timer module of personal.xls, Can anyone shed
some light how I would achieve this.

Many thanks

Don

Application.Run("workbook.xls!macro",arg1,arg2,etc)

On Jun 18, 2:25*pm, Smallweed <Smallw...@discussions.microsoft.com>
wrote:
> Application.Run("workbook.xls!macro",arg1,arg2,etc)


Thanks for reply but as mentioned in op this could be one of four
workbooks (in fact more) so I would not know which workbook.xls to
specify. Can I use wildcards?

Don

On Jun 18, 3:09*pm, don <donhar...@gmail.com> wrote:
> On Jun 18, 2:25*pm, Smallweed <Smallw...@discussions.microsoft.com>
> wrote:
>
> > Application.Run("workbook.xls!macro",arg1,arg2,etc)
>
> Thanks for reply but as mentioned in op this could be one of four
> workbooks (in fact more) so I would not know which workbook.xls to
> specify. *Can I use wildcards?
>
> Don

Any other thoughts please?

Don

Maybe...(untested)

Option Explicit
Sub testme()

Dim ok As Boolean
Dim wkbk As Workbook

ok = False
For Each wkbk In Application.Workbooks
On Error Resume Next
Application.Run "'" & wkbk.Name & "'!macronamehere", "parm1"
If Err.Number <> 0 Then
Err.Clear
Else
ok = True
Exit For
End If
On Error GoTo 0
Next wkbk

If ok = False Then
MsgBox "Failed!"
Else
MsgBox "may it worked???"
End If

End Sub




don wrote:
>
> On Jun 18, 3:09 pm, don <donhar...@gmail.com> wrote:
> > On Jun 18, 2:25 pm, Smallweed <Smallw...@discussions.microsoft.com>
> > wrote:
> >
> > > Application.Run("workbook.xls!macro",arg1,arg2,etc)
> >
> > Thanks for reply but as mentioned in op this could be one of four
> > workbooks (in fact more) so I would not know which workbook.xls to
> > specify. Can I use wildcards?
> >
> > Don
>
> Any other thoughts please?
>
> Don

--

Dave Peterson

On Jun 19, 1:14*pm, Dave Peterson <peter...@verizonXSPAM.net> wrote:
> Maybe...(untested)
>
> Option Explicit
> Sub testme()
>
> * * Dim ok As Boolean
> * * Dim wkbk As Workbook
>
> * * ok = False
> * * For Each wkbk In Application.Workbooks
> * * * On Error Resume Next
> * * * Application.Run "'" & wkbk.Name & "'!macronamehere", "parm1"
> * * * If Err.Number <> 0 Then
> * * * * Err.Clear
> * * * Else
> * * * * ok = True
> * * * * Exit For
> * * * End If
> * * * On Error GoTo 0
> * * Next wkbk
>
> * * If ok = False Then
> * * * MsgBox "Failed!"
> * * Else
> * * * MsgBox "may it worked???"
> * * End If
>
> End Sub
>
>
>
>
>
> don wrote:
>
> > On Jun 18, 3:09 pm, don <donhar...@gmail.com> wrote:
> > > On Jun 18, 2:25 pm, Smallweed <Smallw...@discussions.microsoft.com>
> > > wrote:
>
> > > > Application.Run("workbook.xls!macro",arg1,arg2,etc)
>
> > > Thanks for reply but as mentioned in op this could be one of four
> > > workbooks (in fact more) so I would not know which workbook.xls to
> > > specify. *Can I use wildcards?
>
> > > Don
>
> > Any other thoughts please?
>
> > Don
>
> --
>
> Dave Peterson- Hide quoted text -
>
> - Show quoted text -

Thanks for suggestion I'll post back to let you know if it worked.

Thanks again

On 19 Jun, 17:36, don <donhar...@gmail.com> wrote:
> On Jun 19, 1:14*pm, Dave Peterson <peter...@verizonXSPAM.net> wrote:
>
>
>
>
>
> > Maybe...(untested)
>
> > Option Explicit
> > Sub testme()
>
> > * * Dim ok As Boolean
> > * * Dim wkbk As Workbook
>
> > * * ok = False
> > * * For Each wkbk In Application.Workbooks
> > * * * On Error Resume Next
> > * * * Application.Run "'" & wkbk.Name & "'!macronamehere", "parm1"
> > * * * If Err.Number <> 0 Then
> > * * * * Err.Clear
> > * * * Else
> > * * * * ok = True
> > * * * * Exit For
> > * * * End If
> > * * * On Error GoTo 0
> > * * Next wkbk
>
> > * * If ok = False Then
> > * * * MsgBox "Failed!"
> > * * Else
> > * * * MsgBox "may it worked???"
> > * * End If
>
> > End Sub
>
> > don wrote:
>
> > > On Jun 18, 3:09 pm, don <donhar...@gmail.com> wrote:
> > > > On Jun 18, 2:25 pm, Smallweed <Smallw...@discussions.microsoft.com>
> > > > wrote:
>
> > > > > Application.Run("workbook.xls!macro",arg1,arg2,etc)
>
> > > > Thanks for reply but as mentioned in op this could be one of four
> > > > workbooks (in fact more) so I would not know which workbook.xls to
> > > > specify. *Can I use wildcards?
>
> > > > Don
>
> > > Any other thoughts please?
>
> > > Don
>
> > --
>
> > Dave Peterson- Hide quoted text -
>
> > - Show quoted text -
>
> Thanks for suggestion I'll post back to let you know if it worked.
>
> Thanks again- Hide quoted text -
>
> - Show quoted text -

Yes worked fine thanks

Don