Sub VbaPdf()
    Dim i As Integer
    For i = 1 To Worksheets.Count
        If Worksheets(i).Name = "Start" Then
            'Vi vil ikke printe Start
        Else
            Worksheets(i).ExportAsFixedFormat Type:=xlTypePDF, FileName:=Application.ActiveWorkbook.Path & "/" & Worksheets(i).Name & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
        End If
    Next i
End Sub