Private Sub CommandButton1_Click() Call ProcessProductModels Call ProcessOrdersToBIP End Sub