Can i call a macro name from a cell value?

[tonywatsonhelp]

HI Everyone,

I have a standard macro i use in lots of places but i find myself making lots of copy's because in it i have the comand "Call" (Another macro) and the macro i want to call can be different .

so i was wondering if i could instead of say "Call" (Another macro) i could list that macros name in sheets "Macros" say "D7" and have it call it instead?

can this be done? if so how?

thanks

Tony

 

[rehanemis]

Why not you make a button to call it every time or just place in the standard module and call it from anywhere in your sheets.

 

[tonywatsonhelp]

Ok so heres an exaple of the code,

now the thing is i would nornally have to

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("AE1:AH500")) Is Nothing Then
If Range("Z" & Target.Row) = "Dropdown" Then
Call TonyDoesGreen1
Exit Sub
End If
End If

'reapeat code

If Not Intersect(Target, Range("AE1:AH500")) Is Nothing Then
If Range("Z" & Target.Row) = "TextBox" Then
Call TonyDoesRed1
Exit Sub
End If
End If

'and there ight be 25 different calls so i make 25 copies of the code
whereas i could put:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("AE1:AH500")) Is Nothing Then
If Range("Z" & Target.Row) = "Use" Then
Call  Range("Y" & Target.Row) .value  @but this is the row i dont know if it will work?
Exit Sub
End If
End If

 

[jasonb75]

Are all of the macros in the same module?

To do what you want, you need to call the macro by workbook name, module and macro name with something similar to

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("AE1:AH500")) Is Nothing Then
    If Range("Z" & Target.Row) = "Use" Then
        Application.Run "'" & ThisWorkbook.Name & "'!VBAProject." & "Module1." & Range("Y" & Target.Row).Value
        Exit Sub
    End If
End If
End Sub