Loop through names of buttons on a userform

yeah-something like this

Private Sub CommandButton1_Click()
    Dim wsTemp As Worksheet
    Set wsTemp = Sheets.Add
    With Me.ListBox1
        wsTemp.Range("A1").Resize(.ListCount, .ColumnCount).Value = .List
    End With
    wsTemp.PrintOut
    Application.DisplayAlerts = False
    wsTemp.Delete
    Application.DisplayAlerts = True
End Sub