Ændring i VBA kode

Hej
Jeg har fået denne kode her i forummet og den kører upåklagelig.
Nu er det sådan at jeg gerne vil sætte 2 nye faneblade ind før fanebladet Stamdata der er det faneblad hvor jeg afkrydser og printer fra. Jeg har prøvet flere ændringer i linjen, ”For intRaekke = 5 To Worksheets.Count '<--Rettet til 5. Print første”, men uden resultat. Nogle der kan hjælpe?
På forhånd tak
Med venlig hilsen
Klaus W
Sub Rektangelafrundedehjørner4_Klik()

Dim intRaekke As Integer
Dim SidsteSide As Integer
Dim SiderUdskrevet As Integer

SiderUdskrevet = 0

On Error GoTo fejl:

If Worksheets.Count < 1 Then
MsgBox "Der er ingen sider at udskrive?"
End If

    For intRaekke = 5 To Worksheets.Count '<--Rettet til 5. Print første
         
            'Tilføjet - 2 for at læse X fra række 3 i Stamdata
            If Cells(intRaekke - 2, 2).Value = "x" Or _
                Cells(intRaekke - 2, 2).Value = "X" Then
 
        SidsteSide = Sheets(intRaekke).Range("G1")
   
                If Not (IsNumeric(SidsteSide)) Or SidsteSide = 0 Then
                MsgBox Worksheets(intRaekke).Name & " Celle G1 Er ikke et tal eller > 0?"
                Exit Sub
                End If

            Sheets(intRaekke).PrintOut From:=1, To:=SidsteSide
            SiderUdskrevet = SiderUdskrevet + 1
   
            End If
    Next

If SiderUdskrevet = 0 Then
MsgBox "Ingen sider valgt til udskrift."
End If
fejl:

    If Err.Number = 1004 Then
        MsgBox "Du skal indtaste et tal på Fane" & intRaekke & " celle G1"
  End If

End Sub