I think you were on to something with adding the count. I changed everything back to what I had working and added the count you mentioned.

Will see how that goes.

[vba]
If TypeName(Item) = "MailItem" And _
Item.Attachments.Count > 0 Then
 Set Msg = Item
Set myAttachments = Item.Attachments
Att = myAttachments.Item(1).DisplayName
myAttachments.Item(1).SaveAsFile attPath & Att
[/vba]