Como incluir msgbox se a resposta da célula for maior que 8?

[Guilherme Pompermayer]

Prezados,

 

Estou construindo uma planilha no Excel e em dado momento, na coluna AI, a planilha faz uma validação de quantos dias o produto demorou para sair da empresa.
Sempre que este prazo for maior que 8 dias, gostaria que fosse exibido um alerta (MsgBox) solicitando ao colaborador que preencha a justificativa pelo atraso no envio.

 

Informações importantes:
na coluna em questão eu já tenho uma formula: =SE([@[DATA DO APTO]]="";"";SE([@[Validação do desconto do SLA]]="X";[@[Desconto na data do SLA]];DIATRABALHOTOTAL([@[DATA DO APTO]];[@[DATA DA FINALIZAÇÃO]])))

 

na planilha também já tenho uma outra programação em VBA:

 

Private Sub Worksheet_Change(ByVal Alvo As Range)
     Dim limite_maximo As Integer
  limite_maximo = 32000 ' altere aqui para limitar a última linha
  If Alvo.Cells.Count = 16 Or IsEmpty(Alvo) Then Exit Sub
    ' faz nada se mais de uma célula modificada ou se deu delete
  If Alvo.Column = 16 And Alvo.Row <= limite_maximo Then
    ' o if acima garante que a célula modificada está dentro a2:a32000
    ' desliga captura do evento change
  Application.EnableEvents = False
    ' muda a célula C da linha correspondente
  Alvo.Offset(0, 18).Value = Date    'Troque por Time() se quiser que mostre a data ao invés do horário
    ' religa a captura de eventos
  Application.EnableEvents = True
  End If
  End Sub

 

Como conseguir criar a MsgBox e conciliar a execução das duas macros na mesma planilha?

 

Desde já agradeço a ajuda galera.