How to USE """"" cells count """"" change font color

Maybe:

Sub austin123456()
Dim rcell As Range
For Each rcell In Range("A1:D6")
    If rcell.Value < 1 Then rcell.Font.ColorIndex = 3
    If rcell.Value > 1 Then rcell.Font.ColorIndex = 5
Next rcell
End Sub

Originally Posted by JOHN H. DAVIS

Maybe:

Sub austin123456()
Dim rcell As Range
For Each rcell In Range("A1:D6")
    If rcell.Value < 1 Then rcell.Font.ColorIndex = 3
    If rcell.Value > 1 Then rcell.Font.ColorIndex = 5
Next rcell
End Sub

Sub testtest()

Set sht1 = Sheets("sheet1")
Set sht2 = Sheets("sheet2")

Dim rcell As Range
Dim r2cell As Range

For Each r2cell In sht2.Range("A1:D6")
For Each rcell In sht1.Range("A1:D6")

If sht1.rcell.Value - sht2.r2cell.Value < 1 Then
sht1.rcell.Font.ColorIndex = 3
End If

Next
Next

End Sub

Hello John,
Thanks for yr response
how to change this code ?

I maybe be missing something regarding what you're trying to achieve. Can you attach a sample file with some data explaining before and after results? To attach a file, push the button with the paperclip (or scroll down to the Manage Attachments button), browse to the required file, and then push the Upload button.

Originally Posted by JOHN H. DAVIS

I maybe be missing something regarding what you're trying to achieve. Can you attach a sample file with some data explaining before and after results? To attach a file, push the button with the paperclip (or scroll down to the Manage Attachments button), browse to the required file, and then push the Upload button.

attached file for yr ref.