VBA
'UserForm2 module
Private Sub UserForm_Activate()
TextBox1.Text = "Activated"
End Sub
Private Sub UserForm_Deactivate()
TextBox1.Text = "Deactivated"
End Sub
Private Sub CommandButton3_Click()
Me.Hide
UserForm1.Show
End Sub
'UserForm1 module
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
UserForm2.Show
End Sub
Funny Fowl