Combine recursive listing with excluded code

[anmac1789]

I was just wondering why do you have a second module with this code:

Option Explicit

Sub Macro1()
    ' Macro1 Macro
    ActiveSheet.Range("$A$1:$H$104").RemoveDuplicates Columns:=1, Header:=xlYes
End Sub

Sub Macro2()
' Macro2 Macro
'
End Sub

when you have :

Private Sub RemoveDups()
    wsOut.Cells(1, 1).CurrentRegion.RemoveDuplicates Columns:=1, Header:=xlYes
End Sub

and also from here:

Call GetFiles(oFSO.GetFolder(RemovePrefix(sPathTop)))    
    wsOut.Cells(rowStart, colFileFolder).Value = "Parent Folder"
    RemoveDups
    Cleanup

which already removes duplicates as intended

Also, i have tested out a parent folder path which is 243 characters long and the files within it did not get listed even thought I have attached a " \\?\ " prefix to take care of long file names...