Ok I attempted to work with this code and I keep getting an error on the line of code
Code:
If Len(Trim(rng.Value)) = 0 Or UCase(rng.Value) = "NO ACCESS" Then
. Debug us picking this up. Now I checked to make sure it was not a spelling error and the columns are the correct ones etc. When using UCase it shouldn't matter if the code was in lower case even though I made sure to make it all uppercase to match. I will see if it works on a smaller version of the file first as the one I'm testing on right now is a full inspection.

I also reposted the file on a free site, I was not able to get the wiki site to work, it would keep crashing out on file upload

Zippyshare.com - SAMPLE_insepction_converted_061913.xlsm

Thanks again for all your help.