VBA Case Loop

[FalconFlyer]

I have 2 columns (F and G) that I would ultimately run this macro on. Column F is formatted as numbers and Column G is %. The macro works on Column F, but returns "Type Mismatch" for G. Not sure what I am doing wrong.

Dim LastRow As Long
Dim r As Long
    Application.ScreenUpdating = False
    
'   Find last populated cell in column A
    LastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
'   Loop through all rows starting from row 2
    For r = 3 To LastRow
        Select Case Cells(r, "G")
            Case Is < 0
                Range(Cells(r - 1, "G"), Cells(r, "G")).Interior.Color = RGB(247, 196, 187)
            Case Is > 0
                Range(Cells(r - 1, "G"), Cells(r, "G")).Interior.Color = RGB(200, 239, 195)
        End Select
    Next r
    
    Application.ScreenUpdating = True

Can I combine it to apply to both F and G? What am I doing wrong?

TIA

 

[Joe4]

Do you want columns F and G formatted by the same rule (so for any row, columns F and G will always be the same color)?
Do you have any non-numeric values in columns F and G?

 

[footoo]

Your code works for me without any error.

 

[FalconFlyer]

Thank you for your reply. It made me go back and check. Sure enough I had a div/0 error in a few of the cells in the column. Once I corrected it, the code worked.