Como aplicar una ProgressBar mientras se ejecuta mi macro

Dante buen día, nuevamente apoyándome en ti para esta cuestión, ayer y antier me ayudaste con un ejemplo de Macro para mostrar columna oculta de acuerdo a fecha capturada en una celda ahora estoy viendo la forma de agregarle una ProgressBar a la macro, pero me he quedado a medias algo me falta, me puedes ayudar a revisarlo y ver que es lo que me hace falta.

Esto lo tengo en UserForm1

Private Sub FrameProgress_Click()
End Sub
Private Sub Label1_Click()
End Sub
Private Sub LabelProgress_Click()
End Sub
Private Sub UserForm_Activate()
    Call OcultarColumnas
End Sub

y esto lo tengo en el Modulo1

Sub ShowUserForm()
    UserForm1.Show
End Sub
Sub OcultarColumnas()
'Por.Dante Amor
    Dim Contador As Integer
    Dim Pct As Single
    Contador = 1
    ini = Columns("D").Column
    fin = ActiveSheet.UsedRange.Columns(ActiveSheet.UsedRange.Columns.Count).Column
    Range(Cells(1, ini), Cells(1, fin)).EntireColumn.Hidden = False
        Application.ScreenUpdating = False
    If [B3] <> "" Then
        For i = fin To ini Step -1
            If IsDate(Cells(1, i)) And Cells(1, i) <> [B3] Then
                Columns(i).EntireColumn.Hidden = True
                Contador = Contador + 1
            End If
    Pct = Contador / fin
         UpdateProgressBar Pct
        Next
    End If
    Unload UserForm1
End Sub
Sub UpdateProgressBar(Pct As Single)
    With UserForm1
        .FrameProgress.Caption = Format(Pct, "0%")
        .LabelProgress.Width = Pct * _
            (.FrameProgress.Width - 10)
    End With
     DoEvents
End Sub