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:

'Adds conditional formats to columns in red font for errors to check
'LastRow = Range("L" & Rows.Count).End(xlUp).Row

With Sheet1
        With .Range("D2:D" & LastRow)
            .Activate
            .FormatConditions.Add xlExpression, Formula1:="=LEN(D2)>=255"
            .FormatConditions(1).Interior.ColorIndex = 3
            .FormatConditions(1).Font.ColorIndex = 3
        End With
        With .Range("F2:F" & LastRow)
            .Activate
            .FormatConditions.Add xlExpression, Formula1:="=LEN(F2)>=255"
            .FormatConditions(1).Interior.ColorIndex = 3
            .FormatConditions(1).Font.ColorIndex = 3
        End With
        With .Range("H2:H" & LastRow)
            .Activate
            .FormatConditions.Add xlExpression, Formula1:="=LEN(H2)>=90"
            .FormatConditions(1).Interior.ColorIndex = 3
            .FormatConditions(1).Font.ColorIndex = 3
        End With
        With .Range("J2:J" & LastRow)
            .Activate
            .FormatConditions.Add xlExpression, Formula1:="=LEN(J2)>=700"
            .FormatConditions(1).Interior.ColorIndex = 3
            .FormatConditions(1).Font.ColorIndex = 3
        End With
    End With
Thank you once again!