Ayuda por favor a principiante

Espero que me puedan ayudar por favor
Encontre este codigo, crei que podria usarlo para bajar mis correos, pero
soy principiante de macros he aprendido mucho en este foro, pero este
codigo me envia error, me dice:

"Microsoft Excel esta esperando que otra aplicacion complete una acción
OLE".

¿Como podria modificarlo para que no se quede pasmado y ya no salga este
error?

Por su ayuda por anticipado muchas gracias.

Option Explicit

Sub DescargarArchivos()

Dim olApplication As Object 'Outlook.Application
Dim olNameSpace As Object 'Outlook.NameSpace
Dim olFolderCorreo As Object 'Outlook.MAPIFolder
Dim olFolderBandejaEntrada As Object 'Outlook.MAPIFolder
Dim olMailItem As Object 'Outlook.MailItem
Dim olAttachment As Outlook.Attachment
Dim olMailItemAnexo As Object ' Outlook.MailItem

Set olApplication = CreateObject("Outlook.Application")
Set olNameSpace = olApplication.GetNamespace("MAPI")
Set olFolderCorreo = olNameSpace.Folders("Mailbox - SALAZAR GONZALEZ
OCTAVIO")
Set olFolderBandejaEntrada = olFolderCorreo.Folders("Bandeja de entrada")

For Each olMailItem In olFolderBandejaEntrada.Items
If olMailItem.CreationTime >= DateSerial(2004, 12, 20) + TimeSerial(0,
0, 0) And olMailItem.CreationTime <= DateSerial(2004, 12, 31) Then
For Each olAttachment In olMailItem.Attachments
MsgBox "Nombre: " & olAttachment.DisplayName & vbCr & "Tipo: " &
olAttachment.Type, vbInformation, Application.Name
'Los anexos tipo 6 no se pueden guardar en disco
If olAttachment.Type = 1 Or olAttachment.Type = 5 Then '1 > olByValue
olAttachment.SaveAsFile "C:\CORREOS DE MACRO\" &
olAttachment.Filename
End If
Next olAttachment
End If
Next olMailItem

Set olFolderBandejaEntrada = Nothing
Set olFolderCorreo = Nothing
Set olNameSpace = Nothing
Set olApplication = Nothing

End Sub