Duda macro VBA Excel display error

Tengo un problema con mi macro, corro todo perfecto pero cuando llega al momento .display me tira un error, y es la misma macro que utilizo en el trabajo hace meses, no la modifiqué, ¿alguien se le ocurre que puede ser? Dejo la macro a continuación:

Sub seguimiento_semanal()
'Application.Calculation = xlManual
With Application
.ScreenUpdating = False
.EnableEvents = False
.DisplayAlerts = False
End With
Dim TempFilePath As String
Dim SM As String
Sheets("Mail").Select
For i = 3 To Range("a" & Rows.Count).End(xlUp).Row
Sheets("mail").Select
SM = Range("a" & i)

'TURNOS
Sheets("Turnos").Select
ActiveSheet.PivotTables("Tabla Turnos").PivotFields("nrolocal").CurrentPage = _
SM
ActiveSheet.ChartObjects("Graf Turno").Activate
ActiveChart.Export "\\FSCENTRALAR\GroupsCENTRAL$\Map_V\GGG100_Gerencia_Fidelidad_CRM\CRM\Envíos automatizados\Seguimiento locales\turno.jpg" 'le indica ruta a exportar
'SEMANAS
Sheets("Semanas").Select
ActiveSheet.PivotTables("Tabla Semana").PivotFields("nrolocal").CurrentPage = _
SM
ActiveSheet.ChartObjects("Graf Semana").Activate
ActiveChart.Export "\\FSCENTRALAR\GroupsCENTRAL$\Map_V\GGG100_Gerencia_Fidelidad_CRM\CRM\Envíos automatizados\Seguimiento locales\Semana.jpg" 'le indica ruta a exportar
'SOLICITUDES
Sheets("Solicitudes").Select
Range("j1").Select
ActiveCell.FormulaR1C1 = SM
ActiveSheet.ChartObjects("Graf Solicitudes").Activate
ActiveChart.Export "\\FSCENTRALAR\GroupsCENTRAL$\Map_V\GGG100_Gerencia_Fidelidad_CRM\CRM\Envíos automatizados\Seguimiento locales\Solicitudes.jpg" 'le indica ruta a exportar
'CAJEROS
Sheets("cajero").Select
Range("e3").Select
ActiveCell.FormulaR1C1 = SM
Range("E7").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
TempFilePath = Environ("Documents\Macro") & "\\FSCENTRALAR\GroupsCENTRAL$\Map_V\GGG100_Gerencia_Fidelidad_CRM\CRM\Envíos automatizados\Seguimiento locales\"
Sheets("Cajero").Select
Sheets("Cajero").Copy
ActiveWorkbook.Connections("Ultima semana - KPI_Fidelidad_Cajeros1").Delete
ActiveWorkbook.SaveAs Filename:= _
"\\FSCENTRALAR\GroupsCENTRAL$\Map_V\GGG100_Gerencia_Fidelidad_CRM\CRM\Envíos automatizados\Seguimiento locales\Seguimiento Cajero.xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
Sheets("mail").Select
Set appOutlook = CreateObject("outlook.application")
Set Message = appOutlook.CreateItem(olMailItem)
With Message
.SentOnBehalfOfName = "[email protected]"
.To = Range("D" & i) & Range("x" & i) & Range("f" & i)
'.Cc = Range("g" & i)
.Subject = Range("I" & i)
.HTMLBody = "<font size=3 face= Calibri>" _
& Range("j" & i) & "<br >" _
& Range("k" & i) & "<br >" & "<br >"
.Attachments.Add TempFilePath & "solicitudes.jpg", olByValue, 0
.HTMLBody = .HTMLBody & "<img src='cid:Solicitudes.jpg'><br> <br>"
.Attachments.Add TempFilePath & "Semana.jpg", olByValue, 0
.HTMLBody = .HTMLBody & "<img src='cid:Semana.jpg'><br> <br>"
.Attachments.Add TempFilePath & "Turno.jpg", olByValue, 0
.HTMLBody = .HTMLBody & "<img src='cid:Turno.jpg'><br> <br>" _
& Range("l" & i) & "<br >" & "<br >" _
& Range("m" & i) & "<br >" _
& Range("y" & i)
.Attachments.Add "\\FSCENTRALAR\GroupsCENTRAL$\Map_V\GGG100_Gerencia_Fidelidad_CRM\CRM\Envíos automatizados\Seguimiento locales\Seguimiento Cajero.xlsx"

.Display <- aqui el problema
'.Send
End With
Next
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
Application.DisplayAlerts = True
Application.Calculation = xlCalculationAutomatic
End Sub

El error dice "error en el metodo '.display' de objeto '_mailitem'