Make a recursive call to subfolder, for example :
'Taken from http://stackoverflow.com/questions/22645347/loop-through-all-subfolders-using-vba
Sub Launcher()
Dim FileSystem As Object
Dim HostFolder As String
HostFolder = "C:\Users\RAL\Desktop\H552E\"
Set FileSystem = CreateObject("Scripting.FileSystemObject")
DoFolder FileSystem.GetFolder(HostFolder)
End Sub
Sub DoFolder(Folder)
Dim SubFolder
For Each SubFolder In Folder.SubFolders
'---------------------------------------------------------------
' YOUR CODE HERE, for example :
'---------------------------------------------------------------
Debug.Print SubFolder.Name
'---------------------------------------------------------------
DoFolder SubFolder
Next
End Sub
Bookmarks