Создание 2 пользовательских форм.
В UserForm1 введите этот код:
Dim WithEvents frm2 As UserForm2
Private Sub frm2_Closed()
MsgBox "Closed!"
End Sub
Private Sub UserForm_Initialize()
Set frm2 = New UserForm2
frm2.Show
End Sub
В Userform2 введите код:
Public Event Closed()
Private Sub UserForm_Terminate()
RaiseEvent Closed
End Sub
Вы можете изменить код, чтобы сделатьчто вы хотите.
Когда UserForm2 закрывается, возникает событие, и UserForm1 обрабатывает его.