Guru do Excel e Power BI

Pessoal Bom dia!

Estou montando uma macro para envio de múltiplos e-mails seguindo uma mesma condição, no entanto ela só está enviando o primeiro e-mail e para, alguém saberia me esclarecer ?

Sub enviar_notificacao()

Dim outlookApp As Object
Dim outlookMail As Object
Set outlookApp = CreateObject("outlook.application")
Set outlookMail = outlookApp.CreateItem(0)


On Error Resume Next

Dim i As Integer
For i = 1 To 3

If Notifications.Range("E" & i + 6).Value <> "ok" Then

With outlookMail
.To = Notifications.Range("D" & i + 6).Value
.cc = ""
.bcc = ""
.Subject = "Compliance Training Notification"
.HTMLbody = Notifications.Range("F" & i + 6).Value
.display
.send

End With
End If

Next i

On Error GoTo 0

Set outlookMail = Nothing
Set outlookApp = Nothing

End Sub

If Notifications.Range("E" & i + 6).Value <> "ok" Then

Provavelmente E7 <> ok.
Verifique se E8 e E9 também não contém "ok".

Veirifiquei mas ele ainda só faz a primeira rotina e para, quando faço o codigo para mostrar o e-mail apenas, sem enviar consigo ver que ele monta todos, mas descarta.. pus em anexo caso alguem saiba me ajuda

Experimente.
obs. deixei desativada a linha abaixo pois não vejo relação com o código.
'Windows("GRC_Trainings_31 de Out_com NPER.xlsm").Activate

Muito Obrigado meu amigo! salvou aqui!