Code: Select all
Sub run_all_macro()
Application.ScreenUpdating = False
Data = MsgBox("Are you certain all RosterApps data is correct?", vbYesNo, "Calculate Roster Import")
If Data = vbYes Then
Call Module1.Distribute
End If
Application.ScreenUpdating = True
MsgBox ("Completed")
End Sub