Read Sub code from a cell

[Celticfc]

I need to write a sub, where the actual code for this sub is stored in a cell.

I.e.

Sheet1 A1 has “Call MasterCode”

How can I write a sub that actually reads the contents of a cell and actions it?

Or I simply need to copy paste the contents of A1 and paste it to the sub etc.

Many thanks in advance.

 

[mikerickson]

Excel cells are for values and formulas.
The VB Editor is for VBA code.

That being said, if you have the text for a sub, including the declaration line and the End Sub in A1, this might do what you want

Sub test()
    Dim strCode As String
    Dim strProcName As String, strModName As String
    strCode = Range("A1").Text
    With ThisWorkbook.VBProject
        With .VBComponents.Add(vbext_ct_StdModule)
            strModName = .Name
            With .CodeModule
                .AddFromString strCode
                strProcName = .ProcOfLine(.CountOfLines - 1, vbext_pk_Proc)
            End With
        End With
        Application.Run strProcName
        .VBComponents.Remove .VBComponents(strModName)
    End With
End Sub

 

[Norie]

If all you want to do is call a sub that's named in a cell you can use Application.Run.

Application.Run Range("A1").Value