Copy before hidden sheet

[Steve]

I am trying to insert a copied sheet before a hidden sheet, as it is now the
copy goes after the hidden sheet. Is there a modification to .copy before
to accomplish this or is unhide, copy, then re-hide the way to do it?

Sheets("Sheet2").Select
ActiveWindow.SelectedSheets.Visible = False
.Copy Before:=Worksheets("Sheet2")
Sheets("Sheet2").Visible = True

Thanks

 

[Bob Phillips]

Steve,

You had 2 replies to this on 23rd. Did neither suit, and if not, what was
the problem?

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

 

[Steve]

I have gone back and connot see any replies. Sorry

 

[Tom Ogilvy]

Try making it visible before and hide it after

Worksheets("Data") .Visible = xlSheetVisible
....

Worksheets("Data") .Visible = xlSheetHidden

--

HTH

Bob Phillips
=========================
Try this

Application.ScreenUpdating = False
x = Worksheets("Data").Visible
If x <> True Then Worksheets("Data").Visible = True
....Copy Before:=Worksheets("Data") where DATA! is hidden
If x <> True Then Worksheets("Data") = xlVeryHidden
Application.ScreenUpdating = True

Chris

========================

Hi Steve,

What modification must be made to copy before when the sheet is hidden.
Example
.Copy Before:=Worksheets("Data") where DATA! is hidden. The copy ends up
after DATA rather than before.

Try this:

Worksheets("Sheet1").Copy After:=Worksheets("Data")
Worksheets("Data").Move After:=ActiveSheet

--
Regards

Melanie Breden
- Microsoft MVP für Excel -

http://excel.codebooks.de (Das Excel-VBA Codebook)