Sub Tester()
    'set up some buttons
    With ActiveSheet
        AddMacroAndPopUp .Shapes("Rectangle 1"), "Test1", "popup 1"
        AddMacroAndPopUp .Shapes("Rectangle 2"), "Test2", "popup 2"
    End With
End Sub

'utility sub to configure a shape with a link and some pop-up text
Sub AddMacroAndPopUp(shp As Shape, macroName, txt As String)
    Dim ws As Worksheet
    shp.Parent.Hyperlinks.Add Anchor:=shp, Address:="#" & macroName & "()", ScreenTip:=txt
End Sub

'Example functions called from hyperlinks
'**************************************************
Function Test1()
    Debug.Print "Test1"
    SaveData      'do something here
    Set Test1 = Selection  '<< must return a "destination" for the link,
                           '      in this case the clicked shape
End Function

Sub SaveData()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    On Error Resume Next
    With ThisWorkbook
        .Worksheets("Sheet1").Copy
        ActiveWorkbook.ActiveSheet.Name = "SMT"
        ActiveWorkbook.Worksheets(1).DrawingObjects.Delete
        With ActiveWorkbook.VBProject.VBComponents("Sheet1")
          .CodeModule.DeleteLines 1, .CodeModule.CountOfLines
        End With
        ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\Data_1C.xlsb", FileFormat:=xlExcel12, CreateBackup:=False
    End With
End Sub

'called from hyperlink
Function Test2()
    Debug.Print "Test2"
    MacroTest2      'do something here
    Set Test2 = Selection
End Function

Sub MacroTest2()
MsgBox "Test2, popup 2"
End Sub

'Этопришлось вынести в отдельную процедуру,  
'т.к. таймер не желал "убиваться" в таймерной процедуре tmrPrc  
Sub tmrKill()  
KillTimer &H0, tmrID  
End Sub