Create a button on Excel spreasheets with VBA

Form.vb

' Usage:
' Call CreateButton("Example", "A1", "name_of_the_macro")
Sub CreateButton(name, rng, theMacro)
    With ActiveSheet
        Debug.Print .range(rng).Left
        Debug.Print .range(rng).Top
        
        .Buttons.Add(.range(rng).Left, .range(rng).Top, .range(rng).Width, .range(rng).height).Select
        With Selection
            .Characters.Text = name
            .OnAction = theMacro
            .name = name & rng
        End With
    End With
End Sub