Como hacer para desparecer label del userform

Tengo el siguiente código que me ejecuta una barra de progreso en un userform, lo que no he logrado hacer es que esta barra de progreso desparezca al terminar de ejecutarse la macro, ¿me pueden ayudar?

Anexo código.

Private Sub UserForm_Activate()

Call Mi_Codigo

End Sub

Sub Mi_Codigo()

Sheets("MENU").Unprotect "*"

Dim i As Integer, j As Integer, pctCompl As Single

For i = 1 To 100
For j = 1 To 10
Cells(i, 1).Value = j
Next j
pctCompl = i
Call Aumenta_progreso(pctCompl)
Next i

Sheets("MENU").Protect "*"

End Sub

Sub Aumenta_progreso(pctCompl As Single)

'Actualizo el UserForm
UserForm1.Progreso.Caption = pctCompl & "% Completado"
UserForm1.Barra.Width = pctCompl * 2

'me permite actualizar el Userform y que se refleje
DoEvents

End Sub