Toggle Button Between Two Macros

[cdharguth]

Hello,

I currently have two separate macros which unhide different portions of a sheet. Both portions clear space for users to input data which is linked elsewhere in the workbook. The first macro is named "Add Project 2" and the second macro is named "Add Project 3." Rather than have two separate buttons for this function, I would rather have one button that toggles between the two macros and switches from "Add Project 2" to "Add Project 3" after clicking. Any guidance is appreciated. Below is the separate code I have right now.

"Add Project 2"

Sub NewProject()
Application.ScreenUpdating = False
Rows("25:45").Hidden = False
Sheets("Inputs").Shapes("BackToTop").Visible = True
Sheets("Inputs").Shapes("BackToTop2").Visible = True
ActiveWindow.SmallScroll Down:=24
Application.ScreenUpdating = True
End Sub

"Add Project 3"

Sub NewProject2()
Application.ScreenUpdating = False
Rows("47:67").Hidden = False
Sheets("Inputs").Shapes("BackToTop4").Visible = True
Sheets("Inputs").Shapes("BackToTop3").Visible = True
ActiveWindow.SmallScroll Down:=46
Application.ScreenUpdating = True
End Sub

 

[mikerickson]

Private Sub ToggleButton1_Click()
    With ToggleButton1
        If .Value Then
            Call FirstSub
            .Caption = "Second"
        Else
            Call SecondSub
            .Caption = "First"
        End If
    End With
End Sub