pop up form within userform to confirm choice

[jpruffle]

Hi,

I have a button within a userform that clears the form:

Private Sub CommandButton2_Click()
'Pop up to double check
     ClearCheck.Show
'Clear Page One
    Me.Actnumber1.Value = ""
    Me.How1.Value = ""
    Me.Whoact11.Value = ""
    Me.Whoact12.Value = ""
    Me.Whoact13.Value = ""
    Me.Act1Date.Value = ""
    Me.Comp11.Value = ""
    Me.Result11.Value = ""
    
End Sub

What I want is when it is clicked the userform ClearCheck is shown that basically asks - Are you sure you wish to continue Yes/No.

If Yes I want the rest of the above Sub to continue. If No then Stop.

Can you advise. The ClearCheck code is below:

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub CommandButton2_Click()

End Sub

Thank you in advance.

[ravinder_tigh]

Sub Msgbox_Yes_No()
Dim Response As Integer
Response = MsgBox(prompt:="Select 'Yes' or 'No'.", Buttons:=vbYesNo)
' if user selects yes, i would like to macro(Yes) to continue running
If Response = vbYes Then
Resume
Else
' if the user selects no, exit or whtevr code

End If
End Sub

you could use a message box for this case and that could be even fired from any worksheet or workbook event

[royUK]

As suggested just use a message box

Option Explicit

Private Sub CommandButton2_Click()
    'Pop up to double check
    Select Case MsgBox("This will clear all ntries from the form. Do you want to do this?", vbOKCancel Or vbQuestion Or vbDefaultButton1, "Continue")

        Case vbOK
            'Clear Page One
            With Me
                .Actnumber1.Value = ""
                .How1.Value = ""
                .Whoact11.Value = ""
                .Whoact12.Value = ""
                .Whoact13.Value = ""
                .Act1Date.Value = ""
                .Comp11.Value = ""
                .Result11.Value = ""
                End With
            Case vbCancel

        End Select
    End Sub

This would be simpler

Option Explicit

Private Sub CommandButton2_Click()
    'Pop up to double check
    Select Case MsgBox("This will clear all ntries from the form. Do you want to do this?", vbOKCancel Or vbQuestion Or vbDefaultButton1, "Continue")

        Case vbOK
            'Clear Page One
           Unload Me
           userform1.Show '<- change userform name as necessary

        End Select
    End Sub

[jpruffle]

Thank you both for your suggestions.

Roy I like your idea of clearing the form without referencing. But two things: Firstly my form is a multipage form and I would like the ability for the button just to clear page1 for example (The button resides on Page1). Secondly is there a way to omit two of the items from being cleared:

ComboBox - SelectAct1
and a textbox - ActNumber1?

Thanks in advance.

[royUK]

You can't use the second method, this would reset all textboxes, etc

[jpruffle]

Thank you for your advice.