Assigning a macro to any given shape in Excel

DynamicMacroShapes.bas

Option Explicit

Sub assign_MacroToShape()
	'
	' This macro assigns a macro to a given shape
	'

	'Set variables
  Dim active_Book As Workbook
  Set active_Book = ActiveWorkbook
    
	Dim active_Sheet As Worksheet
  Set active_Sheet = Worksheets(ActiveSheet.Index)
    
	Dim assignMacro as String
	assignMacro = "'" & activeBook.Name & "'!macro_to_Assign"
    
	'Assign macro
	u.Shapes.Item(1).OnAction = assignMacro
End Sub

    Sub macro_to_Assign()
	'TO DO
End Sub