Opret og navngiv fane

Er dette hvad du søger?

Sub nyark()

Sheets.Add.Name = Range("a2")
   
End Sub

Jeg ville nok vælge denne løsning:

Sub nytark()
Sheets.Add.Name = Sheets("Ark1").Range("a1").Value
End Sub

I modsat fald forsøger den at hente navnet fra det nye arks celle A1. Du skal slevfølgelig rette Ark1, til navnet på det ark, du faktisk vil hente navnet fra.

jkrons->Selvfølgelig, havde ikke tænke over det.

Sub OverforData()
Jeg får en fejl, når jeg efterfølgende skal åbne den nye fane???:

Dim irow As Integer
Dim icountrows As Integer
Dim sEndDate As String
Dim iEndDate As Integer
Dim sBeginDate As String
Dim iBeginDate As Integer
Dim sStartcell As String
Dim iNewSheet As Integer


Range("J2").Select
ActiveCell.FormulaR1C1 = "=YEAR(RC[-9])"
iBeginDate = ActiveSheet.Cells(2, 10)
iEndDate = ActiveSheet.Cells(2, 10) + 1
iNewSheet = ActiveSheet.Cells(2, 10)
Sheets.Add.Name = Sheets("ark2").Range("j2").Value

Sheets("ark2").Select
Columns("A:A").Select
    Selection.NumberFormat = "YYYY"

irow = 2
sStartcell = ActiveSheet.Cells(irow, 1).Text

Do Until sStartcell = iEndDate
    irow = irow + 1
    sStartcell = ActiveSheet.Cells(irow, 1).Text
Loop


irow = irow - 1
Range("A1:G" & irow).Select
Selection.Copy
Sheets("iNewSheet").Select    -----> her!!!!!!!

Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Sheets("ark2").Select
Range("a2").Select


End Sub

Hedder arket "iNewSheet"?. Som jeg ser det, er det et variabelnavn, og så skal der ikke anførselstegn omkring navnet.

Selvom jeg fjerner anførselstegn, så får jeg stadig en fejl ;O(

Meningen er, at der i "j2" står et årstal åååå som fanen skal navngives med, og det er den fane, som makroen skal indsætte "COPY"...

Har du prøvet at rette

Sheets("år").Select

hvor år er det årstal, som arket faktisk har?