Run action button once check box was checked

[p9j123]

I have the following code, once I check ccb14(check box) this will pop up an input box, when I put comment and click okay I want to execute the code associated with the command button.

right now it is not giving me any error but it is not also executing command button.

Private Sub ccb14_Click()
 
 Do
        Ans = Application.InputBox("Enter Reason", "Job on Hold")
        If Ans = False Then
            Exit Sub
        ElseIf Ans = vbNullString Then
            MsgBox ("User didn't enter anything!")
        Else
            notestxt.Value = Ans
            GoTo xx
            Exit Sub
        End If
    Loop


xx:
Run Me.CommandButton1
End Sub

 

[p9j123]

by the way, both are in the same vba form

 

[DanteAmor]

Try this way

Private Sub ccb14_Click()
  Dim Ans As String
  Do
    Ans = InputBox("Enter Reason", "Job on Hold")
    If StrPtr(Ans) = 0 Then
      MsgBox ("User canceled!")
      Exit Do
    ElseIf Ans = vbNullString Then
      MsgBox ("User didn't enter anything!")
    Else
      notestxt.Value = Ans
      Call CommandButton1_Click
      Exit Do
    End If
  Loop
End Sub

 

[p9j123]

Thanks for your help @DanteAmor

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.