[VBA-EXCEL] Errore di run-time 438

[fRANCOfRANCHI]

buongiorno
sto lavorando con excell e mi segna "error di run-time 438"nella scritta in grassetto
grazie e ciao

Sub Trova()
Dim intbus As Object
Dim dovesiamo As Variant
Dim numriga As Integer
Dim tipobus As Variant
'Imposta la gamma dei bus dell'tabelle.
Set intbus = Worksheets("tabelle").Cells(1, 1).CurrentRegion
'Va nell'elenco dell'tabelle e, basandosi sulla proprietà IndiceElenco
'dell'elenco a discesa, trova il bus ed i suoi attributi.
dovesiamo = DialogSheets("Rapportini").DropDowns(1).ListIndex
'Il file di intestazione si trova sulla riga superiore;
'bisogna trovare il numero di riga assoluto.
numriga = dovesiamo
'Inserisce i valori nella finestra di dialogo Rapportini.
DialogSheets("Rapportini").Labels(5).Text = Format(intbus.Cells(numriga, 2), "")
DialogSheets("Rapportini").Labels(6).Text = Format(intbus.Cells(numriga, 3), "")
'Ricava il tipobus dal foglio tabelle.
tipobus = Worksheets("tabelle").Cells(numriga, 2).Val
'Calcola i totali parziali.
End Sub

[Silver Black]

Attento, non hai inserito il tag nell'oggeto (un identificativo del linguaggio da te utilizzato) e anche l'oggetto non è molto significativo (pensa se tutti quando hanno un problema di programmazione scrivessero "Cosa sbaglio", non si riuscirebbe più a districarsi).

Per questa volta aggisto io, ma stai più attento.