BARRA DE progreso en un for

La macro no está completa.

Puedes enviarme tu archivo y me explicas qué vas a hacer y en dónde quieres la barra.

Ya te envíe el correo con asunto: BARRA DE progreso en un for muchas muchas gracias dan

Te anexo el código del form Impresion

Private Sub CommandButton1_Click()
'Act.Por.Dante Amor
    Sheets("HOJA DE SUELDOS").Range("BC5").Value = ""
    Sheets("HOJA DE SUELDOS").Range("BC5").Value = ComboBox1.Value
    Application.ScreenUpdating = False
    inicio = IMPRESION.TextBox1.Value
    Fin = IMPRESION.TextBox2.Value
    'If TextBox1.Value > TextBox2.Value Then
    'MsgBox "No podemos continuar ya que el No inicial es mayor que el No final ", vbCritical, "ERROR"
    'Exit Sub
    'End If
    '
    If TextBox1.Value = "" Then
        MsgBox "Falta No de INICIO", vbInformation, "AVISO"
        TextBox1.SetFocus
        Exit Sub
    End If
    '
    If TextBox2.Value = "" Then
        MsgBox "Falta No de FINAL", vbInformation, "AVISO"
        TextBox2.SetFocus
        Exit Sub
    End If
    '
    If ComboBox1.Value = "" Then
        MsgBox "Falta Departamento", vbInformation, "AVISO"
        ComboBox1.SetFocus
        Exit Sub
    End If
    '
    If Sheets("HOJA DE SUELDOS").Range("BD5").Value <= 0 Then
        MsgBox "No hay personal de " & ComboBox1 & " para imprimir", vbInformation, "AVISO"
        DoEvents
        Exit Sub
    End If
    '
    preg = MsgBox("Existen " & Sheets("HOJA DE SUELDOS").Range("Bd5").Value & " personas del Depto." & ComboBox1.Value & " desde el # " & TextBox1.Value & " Hasta el # " & TextBox2.Value & " ¿IMPRIMIR?", vbQuestion + vbYesNo, "IMPORTANTE")
    If preg = vbNo Then Exit Sub
    '
    UserForm1.Show
    Sheets("HOJA DE SUELDOS").Activate
End Sub

Y el código del form Userform1 para el control de la barra

Private Sub UserForm_Activate()
'Referencia: http://support.microsoft.com/kb/211736/es
'Mod.Por.Dante Amor
    LProgress.Width = 0
    principal
End Sub
Sub principal()
'Por.Dante Amor
    Application.ScreenUpdating = False
    con = 1
    rep = 10
    Label1 = "Procesando ..."
    '
    ini = Val(IMPRESION.TextBox1)
    Fin = Val(IMPRESION.TextBox2)
    '
    Set h1 = Sheets("IMPRESION")
    For i = ini To Fin
        h1.Range("C2").Value = i
        If IMPRESION.ComboBox1.Value = h1.Range("C23").Value Then
            h1.PageSetup.PrintArea = "$A$1:$I$29"
            h1.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
        End If
        '
        If (con * 100) / Fin >= rep Then
            UpdateProgressBar rep
            rep = rep + 10
        End If
        con = con + 1
    Next
    h1.Range("C2") = ""
    Application.ScreenUpdating = True
    Label1 = "Proceso Terminado"
    MsgBox "FINALIZADO!", vbInformation, ""
    Unload Me
End Sub
Sub UpdateProgressBar(ava)
'Por.Dante Amor
    UserForm1.Frame1.Caption = Int(ava) & " %"
    LProgress.Width = LProgress.Width + 30
    DoEvents
    'Application. Wait Now + TimeValue("00:00:01")
End Sub

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

hola dan si esta genial.... mejor de lo que esperaba.... y funciona bien, pero cuando en el textbox1 pongo el valor 1 y en textbox2 porngo valor 10 funciona hasta el 100% que es el objetivo

pero cuando puse en textbox1 valor 6 y y en textbox2 puse 10 este se paro en 50% a que se debera??

Como el avance es de 10 en 10, la macro espera encontrar mínimo 10 repeticiones, de 6 a 10 solamente hay 5 repeticiones, por eso llegó al 50%.

Lo reviso y trato de ajustarla.

Muchas gracias dan.. en el textbox1 es cambiante así como puede ser 1 puede ser 5 o 10 dependiendo desde donde se quiera realizar la búsqueda