Runtime Error 13: Type Mismatch

[gmayor]

Change the userform code subs below as follows:

'Cancel button
Private Sub cmdCancel_Click()
    Hide
    Tag = 0 'add this
lbl_Exit:
    Exit Sub
End Sub

Private Sub cmdExecute_Click()
    Tag = 1 'change this
    Hide
lbl_Exit:
    Exit Sub
End Sub