VBA commands for multiple cells?

I din't found any error in my code.. and working fine.. for me..
All IF blocked are closed..

Right click Sheet name, where dropdown Data Validation exists.. then..
paste code in the same module..
Dont use the code in New Module..

I know you are pasting the code in Sheet module only, as Worksheet_Change event triggered and highlighted with Yellow.. still for precaution..