Macro to copy workbooks to another folder

I have written code to copy workbooks with .xlsm extensions and containing text Sales_Ledger from C:\users\howard\downloads to C:\sales ledgers

examples of file names below to be copies

BRMES Sales_Ledger RECON AUG.xlsm, BRSAU Sales_Ledger RECON AUG.xlsm etc


However no files are being copied


It would be appreciated if someone could kindly check & amend my code

Please Login or Register  to view this content.

Change this part of your macro:

Please Login or Register  to view this content.

The comparison should be with both names LCase and you could avoid the last jolly * or use .xls* if necessary).
Then to copy files the function is FileCopy and you are missing a path delimiter.

Thanks for the help.


when running the macro, only one workbook containing text "Sales_Ledger" is being copied to the folder C:\sales Ledgers

I can't understand why all the workbooks containing Sales_Ledger is not being copied

It would be appreciated if you could kindly check and advise

Thanks Sintek

Code works perfectly