All Files in Folder

Sub LoopThroughFiles()
    Dim StrFile As String
    StrFile = Dir("E:\Dropbox\Excel\VBA TO EXCEL\*home*")
    Do While Len(StrFile) > 0
        Debug.Print StrFile
        StrFile = Dir
    Loop
End Sub
Total Page Visits: 242 - Today Page Visits: 3

Leave a Reply