how i can add a progress bar with this code ?, anybody can help me?

Dim objFSO As Object
Dim objFolder As Object
Dim count As Long
Dim Path As String
Dim ws As Worksheet

ws.Select
ws.Unprotect
Range("D4:E2000").Select
Selection.Clear

Path = Sheet1.Range("H3")
If Sheet1.Range("H3") = "" Then
MsgBox "No Room or Path ware Founded"

Exit Sub
End If
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Path)

count = 4
For Each objFSO In objFolder.Files

ws.Cells(count, 4).Value = objFSO.Name
ws.Cells(count, 5).Value = objFSO.Path

count = count + 1
Next
End sub