Domine o Excel ® (3 em 1): Excel - 70 Fórmulas Incríveis, Excel - 51 Macros incríveis e 51 Dicas e Truques Incríveis

Else
pergunta = MsgBox("Senha incorreta, deseja tentar novamente ?",
vbYesNo)
If pergunta = 6 Then
GoTo Retorno:
Else
MsgBox "O Arquivo será fechado"
ActiveWorkbook.Close
End If
End If
Else
pergunta = MsgBox("Usuário não encontrado, deseja tentar novamente ?",
vbYesNo)
If pergunta = 6 Then
GoTo Retorno:
Else
MsgBox "O Arquivo será fechado"
ActiveWorkbook.Close
End If
End If
End Sub