Insert picture in Excel using VBA

[yanty]

Hi all.

I can insert picture to the header of my excel sheet using the below codes

Dim oSW As Excel.Worksheet
'Add picture at left header
    Set oSW = Worksheets(1)
    With oSW.PageSetup.LeftHeaderPicture
    .FileName = (App.Path & "/Pic.jpg")
    .Height = 50
    End with

But the problem is my data on the excel sheet will cover part of the picture in the header. (See attached image)Why is this so that data can be mixed with header of the worksheet? any solutions?

[yanty]

I think I've found the solution, The worksheet looks okay now. Hehe.

Dim oSW As Excel.Worksheet
Set oSW = Worksheets(1)
    With oSW.PageSetup.LeftHeaderPicture
    .FileName = (App.Path & "/Pic.jpg")
    .Height = 50
        End With
    oSW.PageSetup.LeftHeader = "&G"
    oSW.PageSetup.HeaderMargin = 30
    oSW.PageSetup.TopMargin = 90

[yanty]

I just found one problem. When i click on the button that exports my database data to excel, it worked at first. Excel opens and data from database is exported, even the header works. But if I close the excel sheet and click on the button again, error occurs and points to Set oSW = Worksheets(1)

The notice state "Method 'Worksheets' of object '_Global' failed". Did I set teh oSW wrongly?