progress bar issue

Assuming that the frame control is named Frame, try this:

Private Sub UserForm_Activate()
    Dim WS As Worksheet
    Dim QTCount As Long
    Dim QT As QueryTable
    Dim i As Long

    For Each WS In ThisWorkbook.Worksheets
        QTCount = QTCount + WS.QueryTables.Count
    Next WS

    Me.Bar.Width = 0
    For Each WS In ThisWorkbook.Worksheets
        For Each QT In WS.QueryTables
            QT.Refresh False
            i = i + 1
            'Update the progress bar
            UpdateProgressBar i, QTCount
        Next QT
    Next WS
End Sub

Sub UpdateProgressBar(i As Long, QTCount As Long)
    With UserForm1
        .Text.Caption = Format(i / QTCount, "0%") & " Completed"
        .Bar.Width = i / QTCount * (.Frame.Width - 2)
        .Repaint
    End With
    DoEvents
End Sub

Regards, Hans Vogelaar (http://www.eileenslounge.com)