VBA select case udfordring

Hvad gør jeg forkert her?

Det jeg vil opnå, er at Den skal fravælge visse faneblade, men resten skal den lave nogle formler på og så printe ud uden at spørge brugeren om printmenu.

For i = 1 To Worksheets.Count
    Select Case Worksheets(i).Name
        Case "Pivot Kontrolfil"
        Case "Kontrolfil"
        Case "Teknikere"
        Case "Opslag"
        Case "(blank)"
        Case "Start"
        Case Else
            With Worksheets(i)
                .Rows("1:1").Select
                .Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
                .Cells(1, 1).FormulaR1C1 = "Filial:"
                .Cells(1, 2).FormulaR1C1 = "ikke"
                .Cells(2, 4).FormulaR1C1 = "Navn:"
                .Cells(2, 5).FormulaR1C1 = "=Vlookup(RC[-3],Teknikere!R1C1:R999C4,2,false)"
                .Cells(1, 4).FormulaR1C1 = "Medarbejdertype:"
                .Cells(1, 5).FormulaR1C1 = "=Vlookup(R[1]C[-3],Teknikere!R1C1:R999C4,3,false)"
                .Cells(1, 6).FormulaR1C1 = "=Vlookup(RC[-1],opslag!R1C7:R15C8,2,false)"
            Application.DisplayAlerts = False
    '          .PrintOut
            End With
    End Select
Next

Den melder fejl allerede når den skal indsætte linje. "Select method of range case failed"

Jeg beklager de sjove linjeskift.