Progress bar mientras se ejecuta macro

Buenas

Resulta que tengo un ejemplo que busque es de una barra de progreso

y no se como incluirla en mi código este es el código del progress bar

Public Sub Example()

Dim oProgress As New frm_lcf_ProgressBar

Dim style As Integer

Dim windowCaption As String

Dim endRow As Long

Dim i As Long

style = 2 ' Progress bar style (1 / 2).

windowCaption = "Cargando Archivos" ' Progress bar window caption.

endRow = 200000 ' Max value
' Progress bar initialization

oProgress.Initialize endRow, style, windowCaption

oProgress.Show 0 ' Shows the progress bar window
For i = 0 To endRow - 4 ' Dummy loop for this example

'--

' <<Do something, put here your code>>

'--

oProgress.Increase ' Increases 1 unit the progress bar

Next

oProgress.Increase 4 ' Increases 4 units the progress bar

Unload oProgress ' Unload progress bar window

Application.Visible = True

End Sub

Este es mi código al que quiero agregar la barra cuando se encuentra el libro quiero que me aparezca la barra

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

Dim l1 As Worksheet
Application.ScreenUpdating = False
Set l1 = ThisWorkbook.Sheets("Base dato")
On Error GoTo por
Dim formato

Dim fecha

Application.DisplayAlerts = False

ChDir "\\ newton \ users \ 9Produc \ Caracterizaciones\"
If Target.Text = "" Then Exit Sub

formato = Format(Range("M5"), "mm-y")
Workbooks.Open ("\\ newton \ users \ 9Produc \ Caracterizaciones \ " & formato & ".xlsm")
Application.DisplayAlerts = True
Sheets("TABLERO GESTIÓN").Range("A1:Q34").Copy

l1.Range("B9").PasteSpecial _

Paste:=xlPasteValuesAndNumberFormats, _

Operation:=xlNone, _

SkipBlanks:=False, _

Transpose:=False
ActiveWorkbook.Save

ActiveWorkbook.Close
Hoja13.Select

Exit Sub

x:
fecha = Range("M5").Value
Sheets("Base dato").Range("B12:R42").ClearContents MsgBox "Por el momento no existen datos manuales con Fecha ( " & fecha & " ) ", 64, "Información"
End Sub

Gracias de antemano