Calling a Function ith a String Name

With a MenuBar I can call On Action via a String. As shown (Me.CodeName & ".Sheet_PMOfficeProjectRisks_Open_Current_Record")
>>>Set MB = Menu.Controls.Add(Type:=msoControlButton)
>>>With MB
>>>.Caption = "Open File @ Cursor"
>>>.Style = msoButtonCaption
>>>.OnAction = Me.CodeName & ".Sheet_PMOfficeProjectRisks_Open_Current_Record"
>>>End With

Now I would like to to the same when I call a Sub or a Function.
>>> Call Thisworkbook.worksheets(1).CodeName & ".Menu"

No can do. Any ideas?

Thanks

ClemensStart Free Trial