Makro på Mac

Tror du skal vise noget kode, for folket kan komme med konkrete behov.

Et gæt kunne måske være du mangler at nulstille nogle referencer til ark1, som så kopieres videre til ark2 osv...

Koden er ret lang, er det hele kode i skal se?

Jeg er ikke excel haj. Jeg tænker blot hvad jeg skulle mangle, hvis jeg var. :)

Ja okay..jeg viser gerne koden hvis det hjælper nogle kloge hoveder på vej.

Og der er ikke nogle referencer du mangler at nulstille eller sætter = NULL eller noget ?

Jeg har løst det

Hvad var probelmet så ?

Der var en forkert henvisning i makroen

Til gengæld er der noget andet som er lidt træls. Når man kører en makro som tilføjer et ark, så placeres ark 2 før ark 1. Så hvis der er 4 ark i en projektmappe, så står der: 4,3,2,1 istedet for 1,2,3,4.
Der byttes altså om på ark placeringen, hvilket giver problemer når der dannes en udskrift. Kan man gøre noget ved det?

Kan du ikke bruge denne metode: https://support.microsoft.com/en-us/kb/107622

Jo det er nok den man skal bruge, men jeg kan ikke lige gennemskue hvad jeg skal ændre i min nuværende makro.
Den samlede makro ser sådan ud:
 
Sub Tilføjarkmakro9()
'
' Tilføjarkmakro1 Makro
'
' Tastaturgenvej: Alternativ+Kommando+u
'
    Sheets.Add
    Sheets("Ark2").Select
    Cells.Select
    Selection.Style = "Comma"
    Selection.Style = "Comma"
    ActiveWindow.View = xlPageLayoutView
    Range("A1").Select
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
        .LeftHeader = "&""Calibri,Normal""&K000000Hans Skovgaard" & Chr(13) & "ABM15"
        .CenterHeader = "&""Calibri,Normal""&K000000Skat"
        .RightHeader = "&""Calibri,Normal""&K000000&D"
        .LeftFooter = "&""Calibri,Normal""&K000000&A"
        .CenterFooter = "&""Calibri,Normal""&K000000Side &P af &N"
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.75)
        .RightMargin = Application.InchesToPoints(0.75)
        .TopMargin = Application.InchesToPoints(1)
        .BottomMargin = Application.InchesToPoints(1)
        .HeaderMargin = Application.InchesToPoints(0.5)
        .FooterMargin = Application.InchesToPoints(0.5)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = -4
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
    End With
    Selection.NumberFormat = "@"
    Selection.Font.Bold = True
    Selection.Font.Size = 14
    ActiveCell.FormulaR1C1 = "Titel:"
    Range("B1:G1").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .MergeCells = False
    End With
    Selection.Merge
    Selection.Font.Size = 14
    Selection.Font.Bold = True
    Selection.NumberFormat = "@"
    Range("A5").Select
    Selection.Font.Bold = True
    ActiveCell.FormulaR1C1 = "Opgave nr. 10"
    Range("A6").Select
    Columns("A:A").ColumnWidth = 10
    Columns("A:A").EntireColumn.AutoFit
    Range("A3").Select
    ActiveSheet.Buttons.Add(68, 39, 72, 72).Select
    Selection.OnAction = "'Personlig makroprojektmappe'!Tilføjarkmakro2"
    ActiveSheet.Shapes("Button 1").ScaleWidth 1.0972222222, msoFalse, _
        msoScaleFromTopLeft
    ActiveSheet.Shapes("Button 1").ScaleHeight 0.2361111111, msoFalse, _
        msoScaleFromTopLeft
    ActiveSheet.Shapes("Button 1").IncrementLeft -67
    ActiveSheet.Shapes("Button 1").IncrementTop -6
    ActiveSheet.Shapes("Button 1").ScaleWidth 1.0759493671, msoFalse, _
        msoScaleFromTopLeft
    ActiveSheet.Shapes("Button 1").ScaleHeight 0.9411764706, msoFalse, _
        msoScaleFromTopLeft
    Range("B4").Select
    ActiveSheet.Shapes.Range(Array("Button 1")).Select
    Selection.Characters.Text = "Tilføj et ark"
    With Selection.Characters(Start:=1, Length:=12).Font
        .Name = "Lucida Grande"
        .FontStyle = "Normal"
        .Size = 12
        .StrikeThrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range("C5").Select
    ActiveSheet.Shapes.Range(Array("Button 1")).Select
    With Selection.Font
        .Name = "Lucida Grande"
        .FontStyle = "Normal"
        .Size = 12
        .StrikeThrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleSingle
    End With
    With Selection
        .Placement = xlFreeFloating
        .PrintObject = False
    End With
    Range("B4").Select
    ActiveSheet.Shapes.Range(Array("Button 1")).Select
    ActiveSheet.Shapes("Button 1").ScaleWidth 0.9647058824, msoFalse, _
        msoScaleFromTopLeft
    ActiveSheet.Shapes("Button 1").ScaleHeight 1.0625, msoFalse, _
        msoScaleFromTopLeft
    Range("B1:G1").Select
    Range("A5").Select
    Selection.NumberFormat = "@"
    Range("A5").Select
    ActiveCell.FormulaR1C1 = "Opgave nr."
    Range("B5").Select
End Sub

Er der nogen som kan gennemskue hvad jeg skal ændre??

Mit gæt er du kan tilføje noget ala:

ActiveSheet.Move After:=Sheets(ActiveWorkbook.Sheets.Count)
Application.ScreenUpdating = True    ' Enables screen refreshing

Lige efter Sheets.Add