Al ejecutar Macro se pega el pc

 al enviar muchos correos, se pega, eso es porque???, internet no da la banda, se satura la macro, o memoria del pc. Ya que cuando me pasa,debo reiniciar y me vuelve a funcionar bien (varios correos son 100, que tuve que enviar en tres sesiones, con un archivo adjunto de 11k.

Sub SendMail_Gmail()
'Mod.Por.DAM
Dim Email As CDO.Message
Set Email = New CDO.Message
correo = "[email protected]"
passwd = "pwd"
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
Email.Configuration.Fields(cdoSMTPServer) = "smtp.gmail.com"
Email.Configuration.Fields(cdoSendUsingMethod) = 2
With Email.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = CLng(465)
.Item("http://schemas.microsoft.com/cdo/" & "configuration/smtpauthenticate") = Abs(1)
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = correo
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = passwd
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
End With
With Email
.To = Cells(i, "A")
.From = correo
.Subject = Cells(i, "B")
.TextBody = Cells(i, "C")
.AddAttachment Cells(i, "E") & Cells(i, "D")
.Configuration.Fields.Update
On Error Resume Next
.Send
End With
If Err.Number = 0 Then
Cells(i, "F") = "El mail se envió con éxito"
Else
Cells(i, "F") = "Se produjo el siguiente error: " & Err.Number & " " & Err.Description
End If
Next
End Sub

'desde ya gracias