Excel - Cambiar valores de label en vba excel

Hola,

Estoy tratando de utilizar labels para automatizar la impresión sobre unos formatos pre impresos extrayendo los registros de otra hoja del archivo, al hacerlo registro a registro no tengo problema, pero si quiero imprimir automáticamente un rango de registros el label solo toma el primer valor y no los siguientes:

Dim inicio, final As Integer
inicio = InputBox("Indique Registro Inicial", "Inicio")
final = InputBox("Indique Registro final", "Final")
b = inicio
For i = inicio To final
Sheets("hoja1").Range("a1").Value = Sheets("hoja2").Range("b" & b)
Label1.Caption = Range("a1")
Sheets("Hoja1").PrintOut
b = b + 1
Next i

En este caso el label toma el valor inicial pero no lo actualiza.

Mil gracias por la colaboración al respecto.

Antonio G.

probá poniendo

Worksheets("Hoja1").OLEObjects("Label1").Object.Caption = Range("A1")

quizá también necesites usar DoEvents...

Saludos, desde Baires, JuanC