hi
win2k & xp
excel 2k

I want to have a progressbar to work when i refresh all the routines the code below, but i don't know how to do it. can anyone help?


Code:
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