<div>
To copy then hide all the originals, you could use:<br />
<br />

<pre><code id="code-20-42668488-1">    With Worksheets(Array(&quot;Read Me&quot;, &quot;Sheet1&quot;, &quot;Sheet2&quot;))
        .Copy
        .Visible = xlSheetHidden
    End With</code></pre>
</div>


To copy then hide all the originals, you could use:



    With Worksheets(Array("Read Me", "Sheet1", "Sheet2"))
        .Copy
        .Visible = xlSheetHidden
    End With

Matt Miller

<div>
After copying to a new workbook, the new sheets will be active.<br />
<br />
Therefore you will have to re-activate the source workbook to hide the original sheets.
</div>


After copying to a new workbook, the new sheets will be active.

Therefore you will have to re-activate the source workbook to hide the original sheets.

<div>
@Rob<br />
Not if you hold a reference to them, either with a With block, or a variable.
</div>


@Rob
Not if you hold a reference to them, either with a With block, or a variable.

<div>
@Rory - didn't know that, everyday's a school day.
</div>


@Rory - didn't know that, everyday's a school day.

<div>
Otherwise, I would have suggested:<br />
<br />

<pre><code id="code-20-42668537-1">Source = ActiveWorkbook.Name
Sheets(Array(&quot;Read Me&quot;, &quot;Sheet1&quot;, &quot;Sheet2&quot;)).Select
Sheets(Array(&quot;Read Me&quot;, &quot;Sheet1&quot;, &quot;Sheet2&quot;)).Copy
Windows(Source).Activate
Sheets(Array(&quot;Read Me&quot;, &quot;Sheet1&quot;, &quot;Sheet2&quot;)).Visible = xlSheetHidden</code></pre>
</div>


Otherwise, I would have suggested:



Source = ActiveWorkbook.Name
Sheets(Array("Read Me", "Sheet1", "Sheet2")).Select
Sheets(Array("Read Me", "Sheet1", "Sheet2")).Copy
Windows(Source).Activate
Sheets(Array("Read Me", "Sheet1", "Sheet2")).Visible = xlSheetHidden

<div>
Thank you very much. &nbsp;This is exactly what I needed.
</div>


Thank you very much.  This is exactly what I needed.

<div>
<div class="content wysiwyg-content">
I'm trying to copy a group of sheets to a new workbook and then hide the initial sheets on the original workbook?'<br />
<br />

<pre><code id="code-10-29115963-1">      Sheets(Array(&quot;Read Me&quot;, &quot;Sheet1&quot;, &quot;Sheet2&quot;)). _
        Select

    Sheets(Array(&quot;Read Me&quot;, &quot;Sheet1&quot;, &quot;Sheet2&quot;)). _
        Copy
'Hide Readme</code></pre>
<br />
Thanks
</div>
</div>


I'm trying to copy a group of sheets to a new workbook and then hide the initial sheets on the original workbook?'

(CODE)

Thanks

Trying to Copy sheets to a new workbook then hide sheets on original workbook

Visual Basic for Applications (VBA) enables building user-defined functions (UDFs), automating processes and accessing Windows API and other low-level functionality through dynamic-link libraries (DLLs). VBA is closely related to Visual Basic and uses the Visual Basic Runtime Library, but it can normally only run code within a host application rather than as a standalone program. It can, however, be used to control one application from another via OLE Automation. VBA is built into most Microsoft Office applications.

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.

Microsoft Excel

Microsoft Office is an integrated suite of applications that includes Outlook, Word, Excel, Access, PowerPoint, Visio and InfoPath, along with a number of tools to assist in making the individual components work together. Coding within and between the projects is done in Visual Basic for Applications, known as VBA.