How do I assign different subs to user buttons?

[Knockoutpie]

Delete

 

[Fluff]

How about


Sub Knockoutpie()
   Dim Shp As Shape
   Dim Cl As Range, Rng As Range
   
   Set Shp = ActiveSheet.Shapes(Application.Caller)
   Select Case Shp.Name
      Case "NorthEast"
         Set Rng = Range("E2:E20")
      Case "SouthEast"
         Set Rng = Range("F2:F20")
      Case Else
         Exit Sub
   End Select

   For Each Cl In Rng
      If Evaluate("isref('" & Cl.Value & "'!A1)") Then
         Worksheets(Cl.Value).Visible = Not .Worksheets(Cl.Value).Visible
      End If
   Next Cl
   Worksheets("Views").Activate
End Sub

Change the part in red to match the names of your buttons.