Private Sub UserForm_Initialize()
On Error Resume Next
    Dim MYANS As String
    MYANS = MsgBox("Do you want REFRESH the reports?.", vbYesNo, "Refresh REPORTS..")
    If MYANS = vbYes Then
    ProgressBar1  ............................      
        Call refload_weekly_for_em
        Call refresh_daily_for_el
        Call refresh_daily_for_sp
        Call refresh_daily_for_em
    ProgressBar1 ...........................
    End If

End Sub