Conditional Formats .activate not working in Personal.xls

I have created a code which runs perfectly in the standard module of the file but I want this code to be available for use in other books. When I place this code in my Personal.xls, it creates an error on the .Activate of the conditional formats. How would I go about fixing this? Also, I there any way that I can reduce the code for easier reading since the formatting is the same just different formulas to adhere to.

Here is the snippet of code I am referencing:

Please Login or Register  to view this content.

Thank you once again!

Thank you, I have been working on this all day and thought it was something just that simple. Time for a break!