replace text

Hi Excel Gurus,

I have a worksheet where I need to change text into specific letter, for this i use

Formula:

IF(ISNUMBER(FIND($B$6,B11)),$B$7,"")

formula concatenated for each text which need to change, sometimes there are so many formulas which gets concatenated and it makes worksheet performance very slow. I have attached a sample worksheet for your reference. is there any VBA solution for this to improve the performance of worksheet. it would be great if macro runs every time if anything changed in the sheet.