Hi Excelfox

Thanks for all your help

I managed to find the error.

Code:
   If InStr(.Range("B10").Value, "MENS SHOES DEPARTMENT") < 0 Then
This should be


Code:
  If InStr(.Range("B10").Value, "MENS SHOES DEPARTMENT") > 0 Then