Format Cells With Cell Comments

1)After comparison and no difference between the cells
1.1) If the cell selected is blank then there will not be any color
1.2) Else the cell will be colored GREEN

2)After comparison and there is difference between the cells
2.1) Cells wiill be colored RED

However, my code seems to be unable to execute (1.1) . Pls help to see if there's any thing wrong with my code


For K = 1 To 31
For L = 1 To 29
'Do a comparison of the cells
If StrComp(Array_compare(A, 1), Array_compare(A, 2)) = 0 Then

If IsEmpty(Array_compare(A, 1)) Then
Sheets(3).Select
Cells(K, L) = Array_compare(A, 1)

Else
Sheets(3).Select .................