Excel VBA Run-time error '13' Type mismatch

This macro was working fine, but for some reason I am getting the following error: Excel VBA Run-time error '13' Type mismatch every time I run the code now. I didn't change anything in the macro or anything in sheet so don't know why am I getting the error.

The error is in the in red part.

Please Login or Register  to view this content.

You have named range in Range("Status"). You are testing if any cell in named range has a value called "Status"

Thank you Norie, it works perfectly. Thank you again!!!!