Errore In fase di generazione Excel.

[maximum]

Con questo codice stampo sul mio file excel il logo.

    Set RG = WS.Range("A2", "C2")
    RG.Merge
    WS.Range("A2:C2").Select
    With ActiveSheet.Pictures.Insert(App.Path & "\Clicartintestazionivarie.gif")
        .Left = ActiveSheet.Range("A2").Left
        .Top = ActiveSheet.Range("A2").Top
    End With
    WS.StandardWidth = 8
    WS.Cells.RowHeight = 12.75

Tuttavia, dopo avere generato l'excel stesso, se tento di rigenerare lo stesso, dopo averlo chiuso oppure a generarne un altro, la riga dove vado a ricercare il logo mi manda in errore il programma, dicendomi "Variabile del blocco with non impostata".

Da cosa può dipendere?

Grazie anticipatamente a chi mi saprà aiutare.

[maximum]

Ringrazio per la risoluzione del problema il forum www.masterdrive.it.
Riporto anche qui la soluzione, qual'ora possa tornare utile ad altri utenti.

fai uso diretto dell'oggetto Application, quando dovresti passare dagli oggetti creati da codice:

    With ActiveSheet.Pictures.Insert(App.Path & "\Clicartintestazionivarie.gif")
        .Left = ActiveSheet.Range("A2").Left
        .Top = ActiveSheet.Range("A2").Top
    End Withdovrebbe essere:

    With WS.Pictures.Insert(App.Path & "\Clicartintestazionivarie.gif")
        .Left = WS.Range("A2").Left
        .Top = WS.Range("A2").Top
    End With

TheTruster