Call a subroutine using variable subroutine name

[dhstein]

If I have a cell with the contents of a subroutine name for example
A1 = "Mysub"

So if I do
Dim CodeToExecute As String
CodeToExecute = Range("A1").Value

I want to call Mysub using the variable CodeToExecute

Any help is appreciated.

 

[Mike H]

Try this

Application.Run Sheets("Sheet1").Range("A1").Text

Mike

 

[Gary''s Student]

For example:

Sub Mysub()
MsgBox ("HELLO")
End Sub

Sub dhstein()
Dim CodeToExecute As String
CodeToExecute = Range("A1").Value
Application.Run (CodeToExecute)
End Sub

 

[dhstein]

Thanks Mike and Gary - that worked well.

David

Try this

Application.Run Sheets("Sheet1").Range("A1").Text

Mike