Dim exApp As New Excel.Application
 
 
        Dim exwb As Excel.Workbook
        Dim exsh As Excel.Worksheet
 
        Dim exrng As Excel.Range
 
        Dim i As Integer, n As Integer, far As Integer
 
        With exApp
            .Visible = True
 
            exwb = .Workbooks.Open("C:\test1.xls")
            exsh = exwb.Sheets(1)          
            exsh.PageSetup.LeftHeaderPicture.Filename = _
              "C:\gev071\Logo\Rheurdt.JPG"
            With exsh.PageSetup.LeftHeaderPicture
            .Height = 70.5
            .LockAspectRatio = MsoTriState.msoFalse
            .Width = 70.5
            End With
 
            With exsh.PageSetup
                .LeftHeader = ""
                .CenterHeader = "Startliste"
                .RightHeader = ""
                .LeftFooter = ""
                .CenterFooter = ""
                .RightFooter = ""
                .HeaderMargin = 0
                .TopMargin = 60
                .BottomMargin = 60
                .LeftMargin = 15
                .RightMargin = 15
            End With                                        
        End With