Code Change to Save multi-selected emails

[nathandavies]

Graham, I have made another modification to the code, so that if I send an email it asks if i want to save the attachment or not in a different folder but i keep getting an error "Function Call on left-hand side of assignment must return variant or object"

Any ideas how to solve this issue?

      If olItem.Sender Like "Nathan Davies" Then 'INSERT NAME HERE        
        MsgBox("Save Attachments?", vbYesNo, "Save Attachments?") = vbYes
        SaveAttachments olItem, strPath & "\Documents\Documents Sent\"
    Else
        SaveAttachments olItem, strPath & "\Documents\Documents Received\"
    
    'If bExcel = True Then
    'CopyToExcel olItem, strPath
    
       End If
lbl_Exit:
    Exit Sub
End Sub