Tabblad naam

[Imod]

Goedemorgen
Ik heb een vraag en ik heb deze code,

Sub Bladkopie()
'
' Bladkopie Macro
Sheets("Standaard").Copy After:=Sheets(4)
Sheets("Standaard (2)").Select
Range("A1:AC1000").Select
Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
Sheets("Standaard").Select
Range("A1").Select
End Sub

Dit werkt goed.
Ik kopieer Sheet "Standaard" met alle gegevens, formule's, opmaak en voorwaardelijke opmaak => "Standaard (2)"
A1 tot AC1000 van "Standaard (2)" kopieer ik en plak in dezelfde sheet de waarden op dezelfde plaats.
Zo werkt alles nog en opmaak is goed maar alle formules zijn er nu uit!!
Daarna selecteer ik cel A1.

Een paar vragen:
Is deze code ook nog kleiner neer te zetten.
De kopie komt nu na Sheet 4 maar die wil ik altijd als laatste hebben staan.(er kunnen er meer dan 4 zijn)
Als laatste wil ik dat het tabblad "Standaard (2)" de naam krijgt van cel G1 (uit "Standaard (2)")

Kan iemand mij helpen??

 

[Niels28]

Sub Kopieer()

Sheets("standaard").Copy After:=Sheets(Sheets.Count)

    With Sheets(Sheets.Count)
        .Name = [g1].Value
        .Range("A1:AC1000").Value = .Range("A1:AC1000").Value
    End With
    
End Sub

Als er al een tabblad bestaat met de naam in g1 gaat het fout

Niels

 

[Imod]

Niels,

Werkt perfect,

Mijn dank is groot:thumb: