Błędnie skonstruowałaś procedury obsługi błędów. Instrukcja:
On Error GoTo Label1
powoduje, że błąd występuje w kodzie, który wskazałaś jako miejsce gdzie błąd powinien zostać obsłużony!
Wydaje mi się, że tak skonstruowana procedura powinna załatwić problem:
Sub test()
On Error GoTo label1
zakresX = Application.InputBox("Wskaż zakres macierzy X :", "Zakres macierz X", , , , , , 8).Address()
zakresY = Application.InputBox("Wskaż zakres Y:", "Zakres macierz Y", , , , , , 8).Address()
On Error GoTo 0
'dalszy kod
Exit Sub 'Nie zapomnij o tym
label1:
If MsgBox("Czy chcesz zakończyć pracę?", vbYesNo) <> vbYes Then
Resume
End If
End Sub
Pozdrawiam |