help with a progress bar

[JasonLeVan]

below is my code for my page, all i want is a progress bar to show the progress of the macro, I have read a million link and just can not seem to get one to work, any help or just some good directions.

Private Sub Workbook_Open()

Application.WindowState = xlMinimized
Call clear
Call upload1
Call copycell
Call resave
'ActiveWorkbook.Close
'ActiveWindow.Close

End Sub