list workbook names except one

[K]

Hi all, below macro list all the workbook names in column "A" which
exists in a folder. What code line i should add in below macro that
if there is any worbook exists with the name "Closed.xls" in the
folder then it should not be listed with the other workbooks names.
Please can any friend can help

Sub Chk()
fldrnm = Sheets("INFO").TextBox3.Value
fName = Dir(fldrnm & "*.xlsm")
Do While fName <> ""
c = c + 1
Cells(c, 1) = fName
fName = Dir()
Loop
End Sub

 

[Rick Rothstein]

Replace this line of code...

Cells(c, 1) = fName

with this one...

If fName <> "Closed.xls" Then Cells(c, 1) = fName