ERRO DE EXECUÇÃO 91

Question

Na instrução abaixo apresenta o seguinte erro. erro de execução 91

Private Sub CommandButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

    Dim Q As Integer

  Q = 0
  For Q = 1 To 4


    If InputBox("palalavra-chave") = 123456 Then

    Application.Visible = True
    Unload Me ' Userform1

    Exit Sub

    Else

    Q = Q + 1

    MsgBox "Não foi possivel realizar a ação!", vbCritical

    End If

  Next Q

    Exit Sub

End Sub

                                        

Answer 1

Referente a qual linha?

---

A MELHOR FORMA DE AGRADECER E VOTAR COMO UTIL OU MARCAR COMO RESPOSTA Anderson Diniz [e-mail]

Answer 2

NÃO FAZ SENTIDO COLOCAR EXIT SUB ANTES DE END SUB, POIS AMBOS FAZEM A MESMA COISA

---

A MELHOR FORMA DE AGRADECER E VOTAR COMO UTIL OU MARCAR COMO RESPOSTA Anderson Diniz [e-mail]

Answer 3

Q = Q + 1

TENTE TIRAR ESSA LINHA

---

A MELHOR FORMA DE AGRADECER E VOTAR COMO UTIL OU MARCAR COMO RESPOSTA Anderson Diniz [e-mail]