Here is the basic idea for using DIR
Sub FindFilesToChangeSAS()' Bare bones version to test for DIR
Dim FN As String
FN = Dir(ThisWorkbook.Path & "\*.*")
Do Until FN = ""
MsgBox FN 'Name of each file in the directory(folder) displayed
'Do what is desired with the workbook
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.