Excel - ¿Cómo configurar 2 botones en un formulario?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

   '

Dim notaform As String

    notaform = ActiveCell.Address

    'Si se elige una celda entre el rango

    If Not Intersect(Target, Range("h3:h7")) Is Nothing Then

        'Llama los formularios

       nota.Show

   End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

   '

   Dim x          As Long

   Dim Y          As Long

   Dim rngForm  As Range

   '

   '  Asigno el rango donde deseo aparezca el formulario

   Set rngForm = Range("B8:E8")

   '

   '  Verifico si el cursor se encuentra en alguna celda del rango

   If Union(Target, rngForm).Address = rngForm.Address Then

      '

      'Calculo la aparicion Izquierda del form

      x = UserForm1.Width - Range("B8").Left

      '

      'Calculo la aparicion superior del form

      Y = Range("B8").Top + UserForm1.Height + 13

      '

      'llamo al formulario

      UserForm1.Promedio x, Y

      '

   End If

   '

   Set rngForm = Range("B3:E7")

   '

   If Union(Target, rngForm).Address = rngForm.Address Then

      '

      'llamo al formulario

      Call calculadora.VerCalcu(ActiveCell.Address)

      '

   End If

   'Código añadido para el TERCER FORMULARIO NOTA

         ' Borré esta 1ª línea:

         ' Private Sub Worksheet_SelectionChange(ByVal Target As Range)

   Dim notaform As String

    notaform = ActiveCell.Address

    'Si se elige una celda entre el rango

    If Not Intersect(Target, Range("h3:h7")) Is Nothing Then

        'Llama los formularios

       NOTA.Show

   End If

End Sub