Errore di compilazione

[Tullio]

Ciao micdas,
non riesco a capire che cosa stia cercando quando mi da errore di compilazione - Impossibile trovare il progetto o la libreria.
Quando devo far cancellare le forme si blocca dove è evidenziato e mi da l'errore.
Devo farti una premessa, l'ultimo sviluppo l'ho fatto sul computer di casa e questa mattina l'ho trasferito su quello in ufficio, ma anche la versione precedente aveva la stessa Sub, quindi ......boh?
Tu certamente capisci.
Ti ringrazio in anticipo.
Tullio

Sub Forme_cancella()
Dim shp As Shape
Dim nameshp As String
    For Each shp In ActiveSheet.Shapes
        'If shp.Visible = msoTrue Then
        nameshp = shp.Name
            'salva dalla cancellazione la casella di convalida
           
            If Left(nameshp, 9) <> "Drop Down" Then 'And Left(nameshp, 6) <> "Button" Then
                shp.Delete
                'shp.Visible = msoFalse
            Else
            End If
        'End If
    Next

End Sub

[micdas]

If Left(nameshp, 9) <> "Drop Down" Then 'And Left(nameshp, 6) <> "Button" Then
       shp.Delete
       'shp.Visible = msoFalse
Else
End If

Codice: Non sei autorizzato a vedere i links. Registrati o Login

If Left(nameshp, 9) <> "Drop Down" Or Left(nameshp, 6) <> "Button" Then
       shp.Delete
       'shp.Visible = msoFalse
Else
End If
il "nameshp" non può essere Drop Down e Button, ma può essere Drop Down o Button
E poi l'ELSE se è vuota non serve, se invece nell'ELSE c'è qualche azione da eseguire è OK   

[Tullio]

Ciao micdas, ti ringrazio della pronta risposta, ma i commenti li ho lasciati solo per avere un riferimento alla routine di partenza, tutto quello che è dietro apice non dovrebbe starci ma anche se c'è non dovrebbe dare problemi.
Io ti parlo di un'altra cosa, sto cercando di inviarti l'immagine del codice vb e dell'errore che rileva ma non ci riesco almeno credo perché l'anteprima non me lo fa vedere.
Come devo fare ? per allegarti un pdf?
Tullio

[Tullio]

Ciao micdas, ho risolto l'intoppo, mancava il riferimento al PDFCreator.