Hi All,

I have one main macro,

I have to call another macro like this

if Cells(1,"A").value = "AUSTRALIA" then Call Main_AUSTRALIA
if Cells(1,"A").value = "UNITED STATES" then Call Main_UNITED STATES

similarly there are 40 macros need to call.

Can i code like this

if Cells(1,"A").value <> "" then Call Main_& cells(1,"A").value

thanks in advance

You can use Application.Run to do this. E.g.,

Application.Run "Main_" & Cells(1,"A").Value

Cordially,
Chip Pearson
Microsoft MVP 1998 - 2010
Pearson Software Consulting, LLC
www.cpearson.com
[email on web site]




On Wed, 5 May 2010 15:25:08 -0700 (PDT), "fi.or.jp.de"
<(E-Mail Removed)> wrote:

>Hi All,
>
>I have one main macro,
>
>I have to call another macro like this
>
>if Cells(1,"A").value = "AUSTRALIA" then Call Main_AUSTRALIA
>if Cells(1,"A").value = "UNITED STATES" then Call Main_UNITED STATES
>
>similarly there are 40 macros need to call.
>
>Can i code like this
>
>if Cells(1,"A").value <> "" then Call Main_& cells(1,"A").value
>
>thanks in advance

try it this way

Sub calla1()
On Error Resume Next
Application.Run "Main_" & Cells(1, "a")
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(E-Mail Removed)
"fi.or.jp.de" <(E-Mail Removed)> wrote in message
news:4498dc64-d79c-442f-8eea-(E-Mail Removed)...
> Hi All,
>
> I have one main macro,
>
> I have to call another macro like this
>
> if Cells(1,"A").value = "AUSTRALIA" then Call Main_AUSTRALIA
> if Cells(1,"A").value = "UNITED STATES" then Call Main_UNITED STATES
>
> similarly there are 40 macros need to call.
>
> Can i code like this
>
> if Cells(1,"A").value <> "" then Call Main_& cells(1,"A").value
>
> thanks in advance

Thanks Don & Chip Pearson

It works great


On May 6, 3:40*am, "Don Guillett" <dguille...@gmail.com> wrote:
> try it this way
>
> Sub calla1()
> On Error Resume Next
> Application.Run "Main_" & Cells(1, "a")
> End Sub
>
> --
> Don Guillett
> Microsoft MVP Excel
> SalesAid Software
> dguill...@gmail.com"fi.or.jp.de" <fi.or.jp...@gmail.com> wrote in message
>
> news:4498dc64-d79c-442f-8eea-(E-Mail Removed)...
>
>
>
> > Hi All,
>
> > I have one main macro,
>
> > I have to call another macro like this
>
> > if Cells(1,"A").value = "AUSTRALIA" then Call Main_AUSTRALIA
> > if Cells(1,"A").value = "UNITED STATES" then Call Main_UNITED STATES
>
> > similarly there are 40 macros need to call.
>
> > Can i code like this
>
> > if Cells(1,"A").value <> "" then Call Main_& cells(1,"A").value
>
> > thanks in advance- Hide quoted text -
>
> - Show quoted text -