Завершение работы макроса из формы

Sub Price()
On Error GoTo errormsg
l = 28
k = 270
UserForm1.Show
.................................
.................................

errormsg:
    MsgBox ("Код " + code(i1) + " не найден в остатках, его следует удалить из прайса")
    UserForm2.Show
    GoTo replace

ends:
End Sub