copy sheet macro problem

[dado6612]

Hi to all

I have recorded macro which copy Sheet1
That works fine until Sheet1 is veryhidden
Sheet1 suppose to be veryhidden cause its template sheet
So, when user fill up sheet2 he need to press button and he will get Sheet1, named Sheet3, u know how that works

I tried avoid that by this:

Sub copy()
Sheet1.Visible = xlSheetVeryHidden = False
    Sheets("Sheet1").Select
    Sheets("Sheet1").Copy Before:=Sheets(1)
Sheet1.Visible = xlSheetVeryHidden = True
End Sub

That didn't help me, I get part "Sheets("Sheet1").Select" colored yellow

I don't know how to fix this, can someone help me?

Thanks

 

[dado6612]

Yes, that's it

Thanks bro

 

[dado6612]

Hi

VoG, I just realized, it copy sheet to end, I need to copy sheet to start, before previous one

Now its
Sheet1(1)/Sheet1(2)/Sheet1(3)
I need
Sheet1(3)/Sheet1(2)/Sheet1(1)

Its great what code automatically hide original Sheet1, so its needed just to change place for copy new sheet

I tried by changing code to..

Sub copysheet()
Application.ScreenUpdating = False
With Sheet1
    .Visible = xlSheetVisible
    .copy [COLOR=Red]before[/COLOR]:=Sheets(Sheets.Count)
    .Visible = xlSheetVeryHidden
End With
Application.ScreenUpdating = True
End Sub

..but it still move it to end

Thanks

 

[VoG]

Try

Sub copysheet()
Application.ScreenUpdating = False
With Sheet1
    .Visible = xlSheetVisible
    .Copy before:=Sheets(1)
    .Visible = xlSheetVeryHidden
End With
Application.ScreenUpdating = True
End Sub

 

[dado6612]

Yep, that's it
But it takes like 5 seconds to finish
Is problem in mine laptop or in excel?

Ok, nevermind, thanks