Cannot get wildcards to work

I have attached a file with a VBA code that is supposed to loop through column "A" and color any cells that contain the word "Adjustments" in the text string within the cell. I have encased the word in wildcards (Asterisks) but the code will not work Need to have someone look at it to see if I have missed something out. Thank you in advance.

Steve Davis.

Thanks a lot Marvin, really appreciate that, tell me though, was there a specific error in my code? Just would like to know out of interest.

Thanks mate, I forgot all about "Like"! I have actually used it before but it was a long time ago.

Thanks Marv, yes, I forgot all about "Like", I have used it previously but a very long time ago and completely forgot all about it!