VBA Application.Run for Running Macros-with-Parameters Stored Inside an Excel Cell

[Paul_Hossler]

LOTS of disconnects, wrong type of parameters being passed, wrong name of TextBox, wrong passing order of parameters, wrong macro name, ......

Sub SelectAppsToRun()
    Dim rng As Range, LR As ListRow, Arr, ws As Worksheet, txtctl As MSForms.TextBox
    
    With MacroListSht.ListObjects("MacrosTable")
        For Each LR In .ListRows
        
            Set rng = LR.Range
            
            Set ws = ThisWorkbook.Worksheets(rng.Cells(1, 1).Value)
            
            Arr = Split(rng.Cells(1, 2).Value, ", ")
            Set txtctl = ws.OLEObjects(Arr(2)).Object
            
            Application.Run Arr(0), ws, txtctl
        Next
    End With


End Sub


Sub DisplayNameofTextBox(ws As Worksheet, activeTbx As Object)
    MsgBox ws.Name
    MsgBox activeTbx.Value
End Sub