loop through all files in a folder except for one of them

**masben** · 01-15-2013, 04:19 AM

Hi,

I'm having a macro that loops through all files in a specific folder.

part of the code is

strMyFile = Dir(strMyDirectory & "*.xls*")

Do Until strMyFile = ""
Set wrkTargetWrkBook = Workbooks.Open(strMyDirectory & strMyFile)
If InStr(wrkTargetWrkBook.Name, " ") > 0 Then
Application.Run ("'" & wrkTargetWrkBook.Name & "'!" & strMyMacro)
Else
Application.Run (wrkTargetWrkBook.Name & "!" & strMyMacro)
End If
Application.EnableEvents = False 'do not run macro at events such as closing
ActiveWorkbook.Close True
strMyFile = Dir
Loop

could I make the loop skip one of the files (master.xls) so that the action are not performed in that file?

Thanks,
Martin

**PingPing** · 01-15-2013, 04:29 AM

Add another condition to your code.

If strMyFile = "master.xls" then 'don't do anything
else'insert your code here
end if

**masben** · 01-19-2013, 10:23 AM

Hi PingPing,
Thanks for your reply - I'll try this. Just to be sure - beteen 'then' and 'else' in your code I shall not enter any code at all?

All the best,
Martin