[VB2010] Se non si inserisce nome foglio corretto

[kleiko]

Ciao,

dato questo listato:
1 Sub start_articoli()
2 excel = New Microsoft.Office.Interop.Excel.Application
3
4 wb = excel.Workbooks.Open("C:\....\articoli.xls") 'dichiarata pubblica
5 excel.Visible = False
6 wb.Activate()
7 ws = wb.Worksheets(articolo) 'dichiarata pubblica
8
9 ' inizio dati di colonna 1
.
.
.
.
.
End Sub

Mi sono intoppato su un passaggio, ovvero tutto funziona correttamente se l'utente inserisce il codice articolo giusto ovvero quello presente all'interno del file excel come nome foglio, scarpe, guanti, cappelli ecc., ma se per errore scrive male un articolo il programma si blocca,
con il seguente errore alla riga 4:

Eccezione non gestita di tipo 'System.Runtime.InteropServices.COMException' in gestarticolineg.exe

Informazioni aggiuntive: Indice non valido. (Eccezione da HRESULT: 0x8002000B (DISP_E_BADINDEX))

mentre io vorrei che apparisse un msgbox con scritto "Articolo non trovato".

Sapete aiutarmi
Grazie infinite

[kleiko]

Ho risolto, sono stato troppo affrettato nello scrivere il post

Sub start_articoli()
excel = New Microsoft.Office.Interop.Excel.Application
ws = wb.Worksheets(articolo) 'dichiarata pubblica

If Err.Number <> 0 Then
MsgBox("ARTICOLO NON TROVATO")
Else
wb = excel.Workbooks.Open("C:\....\articoli.xls") 'dichiarata pubblica
excel.Visible = False
wb.Activate()


' inizio dati di colonna 1
.
.
.
.
.
End Sub