I tried to adapt Ron de Bruin's code in Copy_Folder(), but I fumbled.
Here is my pseudo-Code :

Prompt for SourceFolder path
Prompt for DestinationFolder Path

If DestinationFolder Does not exist, Create it

For Each workbook in SourceFolder

Copy worksheet(2) values & formats only 'Sheet 2 only, No
formulas, Calculations or Filtering
to DestinationFolder, same original SourceWorkbook.name
Next Workbook

Syntax wise, How do I switch back & forth in my loop from the
SourceFolder Workbooks.Sheets(2) to the DestinationFolder ?

Thank you for your help,

Wayne

I think this will do what you want:
http://www.rondebruin.nl/folder.htm

Regards,
Ryan---

--
RyGuy


"u473" wrote:

> I tried to adapt Ron de Bruin's code in Copy_Folder(), but I fumbled.
> Here is my pseudo-Code :
>
> Prompt for SourceFolder path
> Prompt for DestinationFolder Path
>
> If DestinationFolder Does not exist, Create it
>
> For Each workbook in SourceFolder
>
> Copy worksheet(2) values & formats only 'Sheet 2 only, No
> formulas, Calculations or Filtering
> to DestinationFolder, same original SourceWorkbook.name
> Next Workbook
>
> Syntax wise, How do I switch back & forth in my loop from the
> SourceFolder Workbooks.Sheets(2) to the DestinationFolder ?
>
> Thank you for your help,
>
> Wayne
>

Thank you for your answer, but this is exactly the module
CopyFolder(), I have tried to adapt from.
How do I loop and copy from the Active Sourcefolder,
ActiveWorkbook.worksheets(2).copy Formats & Values.

From his other examples, I could have :

For Each FileInFromFolder In FSO.getfolder(FromPath).files
workbooks.worksheets(2).cells.copy PasteSpecial xlPasteValues
PasteSpecial xlPaste Formats Destination := ToPath
Application.CutCopymode = False
NextFileInFromFolder

Of course this is this For Each block I have trouble with.