VBA based conditional formatting (>3 formats needed)

The reason that the macro is no longer working is that it crashed or was stopped after this line of code was run

Application.EnableEvents = False

and before this line of code was run

Application.EnableEvents = True

Place this macro on the same module sheet as your Worksheet Change macro and run it manually

Sub ReEnableEvents()
Application.EnableEvents = True
End Sub