Format Cell If Not Formula

I am trying to format cells in a range that is not a formula. I tried a UDF and CF but would not work properly. Maybe due to a Bug in Excel.

Therefore created the code below:

I put this code in my ThisWorkbook Module.

What I am trying to accomplish is this.

Check the range of cells, if any cell is not a formula color the background Yellow and the foreground Bold RED.

The workbook has about 40 sheets 32 of them are formatted the same they are numbered "01-31" and 1 is "Temp".

This code works fine but the second procedure would not work when this 1 is there.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Dim myCell As Range
Dim myIntersect As Range
Dim myAddresses As String
Dim SheetNamessToSkip As Variant
Dim res As Variant
SheetNamessToSkip = Array("Splash", "Menu", "Diesel", "Gasolina", "Alcool", "Prev Month", "Totals")

myAddresses = "G12:H51,P40:Q44,P48:Q60,Q14:Q17"

Both subs do what I expect them to do, but can not run them together.

I get a compile error when trying to do it this way.