Public Sub QuickSortArray(ByRef SortArray As Variant, _
                                Optional lngMin As Long = -1, _
                                Optional lngMax As Long = -1, _
...

Private Sub cmdAddAmbassador_Click()
' Run when the user clicks the "<" button to add an ambassador to an event

...

Sub cleanupSheet()
' This function asks for two input the first is the sheet you want to clean up 
' The second is the Column and cell you wish to start at, e.g. A1
...