Search and Flag the Emails in Outlook based on the Data in Excel (Subject column)

It works for me on Excel 2010. Try replacing...

Set MItem = MItems.Find("[From] = " & strName)

with

Set MItem = MItems.Find("[From] = " & Chr(34) & strName & Chr(34))