drctx, I've Managed to solve the problem with FS, Variable Not Defined"., however, I've now got another problem with the line "If .Execute(SortBy:=msosortbyfilename, SortOrder:=msosortorderascending) > 0 Then", it comes up with the message "Error 5, Invalid Procedure call or argument" any...