Вызов макроса по имени макроса в ячейке - VBA

Формулировка задачи:

Добрый вечер форумяне! существует ли такая возможность, что бы кликнув по определенной ячейке вызвать именно тот макрос, который указан в этой ячейке ниже набросок

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = 1
 
If ActiveCell <> 0 Then
'Call ActiveCell
'Application.Run ActiveCell
End If
 
End Sub

такие варианты как: If Target.Address = "$A$1" Then: Call module1 или If Target.Address = [B1].Address Then Test не совсем подходят

Решение задачи: «Вызов макроса по имени макроса в ячейке»

textual
                            Листинг программы 
                        

                            Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim a As String
 If IsEmpty(Target.Cells.Count) = False Then
 a = ActiveCell.Value
 If a <> "" Then
 Application.Run a
 End If
 End If
 End Sub
                        