problema con formulario con el editor de visual basic

Holas, para empezar quiero decir que el programa que intento generar lo hago
desde el editor de visual basic que hay en excel, es decir intento hacer una
macro.

Bueno el problema es que he puesto una progressbar que funciona, pero
resulta que quiero poner una label cuando se le de a un boton, pero esta
label no se ve y no se porque. Dentro del evento click del raton hay dos do
while extensos puede que sea eso, no se. Aqui el codigo, donde pongo
comentarios que os terminaran de aclarar mi problema


Private Sub boton1_Click()

'este procedimiento es el que compara las dos columnas

Label1.Visible = True 'esta label no esta visible hasta que acaba el 2º
loop¿porque? yo quiero que se vea desde el principio
Dim A, C As Currency, porcentaje As Integer
A = 1
Do While ActiveSheet.Cells(A, 1).Value <> "" 'columna A
C = 1
Do While ActiveSheet.Cells(C, 3).Value <> "" 'columna C

'hacemos un casting (CDbl) por si el campo no es del tipo double

If (CDbl(ActiveSheet.Cells(A, 1).Value) = CDbl(ActiveSheet.Cells(C,
3).Value)) And ActiveSheet.Cells(C, 3).Font.Color <> RGB(255, 0, 0) Then
ActiveSheet.Cells(A, 1).Font.Color = RGB(255, 0, 0)
ActiveSheet.Cells(C, 3).Font.Color = RGB(255, 0, 0)
Exit Do
End If
C = C + 1
Loop
'cuando llega aqui se muestra la label, pero hasta este momento no se
ve.
A = A + 1
ProgressBar1.Value = ProgressBar1.Value + 1 'muestra la barra de progreso
Loop
MsgBox "operación realizada con éxito", vbInformation + vbOKOnly,
"finalizada busqueda"
End 'una vez terminada la operacion se sale del programa
End Sub