Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim n As Integer
 
    On Error GoTo excel_error
 
    Me.MousePointer = vbHourglass
    Set xlApp = New Excel.Application
    Set xlBook = xlApp.Workbooks.Add
    Set xlSheet = xlBook.Worksheets.Add
 
    With xlSheet
        .Name = "Liste Anträge"
        .PageSetup.Orientation = xlLandscape
    End With
 
    'With xlSheet.Range("A1", "I1")
    With xlSheet.Range("A1", "J1")
        .BorderAround ColorIndex:=11, Weight:=xlThick
        .Font.ColorIndex = 16
        .Font.Size = 12
        .Font.Bold = True
        .Font.Underline = False
        .Interior.Color = vbWhite
    End With

    Set xlApp = Nothing
    Set xlBook = Nothing
    Set xlSheet = Nothing