Combine recursive listing with excluded code

[anmac1789]

oh...ive done that already and its enabled. When I disabled

ActiveSheet.Range("$A$1:$H$104").RemoveDuplicates Columns:=1, Header:=xlYes

and ran my code on the long folder path I got a run-time error '76': path not found...