Ask before closing userform

[counihan3]

I am trying to place a check inside of my userform to make sure that user does not close it before they are ready however I cannot get it to work. Does anyone have any ideas?

Private Sub UserForm_Terminate()
    ans = MsgBox("Are you sure you want to exit?", vbYesNo, "Training")
    If ans = vbYes Then
        ThisWorkbook.Close True
    ElseIf ans = vbNo Then
        Unload Userform1
        Dim i As Long, Str As String
        For i = VBA.UserForms.Count - 1 To 0 Step -1
            Str = Str & VBA.UserForms(i).Name & vbNewLine
            Unload VBA.UserForms(i)
            Next i
         Userform1.Show vbModeless
         Cancel = True
    End If
End Sub

 

[counihan3]

I have found an answer, mods can close. Thanks