Macro name to run defined by cell

Would this be of any help?

Sub RunColour()
Dim sVal As String
    sVal = Range("A1").Value
    Select Case sVal
        Case "Red": Call Red
        Case "Green": Call Green
    End Select
End Sub

Sub Red()
    MsgBox "Red running.", vbInformation
End Sub

Sub Green()
    MsgBox "Green running.", vbInformation
End Sub

you can do an if condition like below

sub colourchange()
if Range("A1") = "RED" then
   call Red_Sub
elseif Range("A1") = "GREEN" then
   call Green_Sub
end if
end sub

Sub Red_Sub()
'Your code here for the red...
end sub

Sub Green_Sub()
'Your Code here for the green...
end sub

so the code above has 3 subs - 1 main sub (colourchange) and two smaller sub (Red_Sub and Green_Sub). The Main sub is the one you will use so it decides which smaller sub it will run based on the color or text on cell A1...

You can paste the code below in the ThisWorkbook vba window of the project. It will automatically run the sub red if you type RED in A1. You can add as many of the if lines as you want. A1 is the key range and you can change or expand it to a larger range.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim KeyCells As Range

    Set KeyCells = Range("A1")
    
    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then

         If KeyCells.Value = "RED" Then red 'Macro to run
        'If KeyCells.Value = "GREEN" Then green ' Macro to run
       
    End If
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Address(,,,True) = "Sheet1!$A$1" Then
        Application.Run CStr(Target.Value)
    End If
End Sub