Something like:

Sub a()
Dim FilePath As String
Dim FName As String
On Error Resume Next ''in case sheet does not exist
FilePath = "c:\Files\"
FName = Dir(FilePath & "*.xls")
While FName < ""
Workbooks.Open FilePath & FName
Worksheets("IS").PrintOut
ActiveWorkbook.Close False
FName = Dir()
Wend
End Sub


--
Jim Rech
Excel MVP
"Manos" wrote in message
...
| Dear all
|
| I have a folder which includes 200 files of excel with exactly the same
| format.
| There is any possibility to make a macro in order to get into the folder
and
| print a specific sheet?
| I.e Form file September print form all excel files the sheet named "IS"
|
| Because it is quite difficult to open one by one the files and print one
| sheet from each file. most times i am missing files or sheets.
|
| Any help on that?