none
How i can added a progress bar in Excel Sheet with following Vba Cod ? any body can help me,?

    Question

  • 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

    Thursday, May 4, 2017 9:07 AM