K
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
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