Loop through subfolders

I need to run some code on each sub folder in a directory.
How do I get the code to loop to the next folder.

sSourceFolder = "C:\Users\RAL\Desktop\H552E\"
    Set Fldr = CreateObject("Scripting.FileSystemObject").Getfolder(sSourceFolder)
    For Each SubFldr In Fldr.SubFolders 
   
        ''do something
   
    Next

Any assistance appreciated.