Macro to add another Macro to a button to add into a larger Macro.

[taylorsm]

I have a macro that creates a table of contents. I want a button to be placed at H2 that runs another macro I have.

So macro - table of contents and part of that TOC is a button to run a macro to make a copy.

The button will run this

Sub CopyBlankPDA()
'
' BlankCopy Macro
'

'
    Sheets("0Blank").Select
    Sheets("0Blank").Copy Before:=Sheets(4)
End Sub

I did a record and if it helps this is what it says,

Sub Macro1()
'
' Macro1 Macro
'

'
    ActiveSheet.Buttons.Add(361.5, 15.75, 111, 12.75).Select
    Selection.OnAction = "PERSONAL2.xlsm!CopyBlankPDA.CopyBlankPDA"
    Selection.Characters.Text = "Blank PDA Log"
    With Selection.Characters(Start:=1, Length:=13).Font
        .Name = "Calibri"
        .FontStyle = "Regular"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 1
    End With
    Range("I2").Select
End Sub

[AlphaFrog]

Sub Macro1()
    With Range("H2")
        With ActiveSheet.Buttons.Add(.Left, .Top, .Width, .Height)
            .OnAction = "PERSONAL2.xlsm!CopyBlankPDA.CopyBlankPDA"
            .Characters.Text = "Blank PDA Log"
            With .Characters(Start:=1, Length:=13).Font
                .Name = "Calibri"
                .FontStyle = "Regular"
                .Size = 11
                .Strikethrough = False
                .Superscript = False
                .Subscript = False
                .OutlineFont = False
                .Shadow = False
                .Underline = xlUnderlineStyleNone
                .ColorIndex = 1
            End With
        End With
    End With
End Sub

[taylorsm]

That is amazing. Thank you!