To be oicky (probably) a file called Closed.xls won't be listed anyway
because your search is for files with a .xlsm extension.

Not clear on whether you want to skip examining the whole folder if
there is a file called Closed.xls in it or just not include that single
file in the results..
For the former, untested:

Sub Chk()
fldrnm = Sheets("INFO").TextBox3.value
If Dir(fldrnm & "Closed.xls") = "" Then
fName = Dir(fldrnm & "*.xlsm")
Do While fName < ""
c = c + 1
Cells(c, 1) = fName
fName = Dir()
Loop
End If
End Sub


For the latter (untested):

Sub Chk()
fldrnm = Sheets("INFO").TextBox3.value
fname = Dir(fldrnm & "*.xlsm")
Do While fname < ""
If Right(fname, 10) < "Closed.xls" Then 'If Right(fname, 11) <
"Closed.xlsm" Then
c = c + 1
Cells(c, 1) = fname
End If
fname = Dir()
Loop
End Sub


--
p45cal

*p45cal*
------------------------------------------------------------------------
p45cal's Profile: http://www.thecodecage.com/forumz/member.php?userid=558
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=156502

Microsoft Office Help