I guess
Sub CF1()
For Each sh In ActiveWorkbook.Worksheets
Cells.FormatConditions.Delete
aa = WorksheetFunction.CountIf(Range("a4"), "") + WorksheetFunction.CountIf(Range("C4:Z4"), "")
Range("A4:Z41").FormatConditions.Add Type:=xlExpression, Formula1:= _
"=AND(COUNTIF($A4,"""")+COUNTIF($C4:$Z4,"""")<>25,NOT(ISNUMBER($B4)))"
Range("A4:Z41").FormatConditions(Range("A4:Z41").FormatConditions.Count).SetFirstPriority
Range("A4:Z41").FormatConditions(1).Interior.Color = 65535
Range("A2").Formula = "=MID(CELL(""filename"",A1),FIND(""]"",CELL(""filename"",A1))+1,455)"
Next sh
End Sub
But I don't see how this is helping to make it faster/smaller/more email-able etc...
Was your conditional formatting causing it to crash somehow?
Bookmarks