Steve Grosz,

You would like it to create an "image", by image you mean a picture? That
would be much harder to do as you would have to define an Image Object and
have it relate to the reference point in the book. You could always change
the IF statement that I used to have it say "B C" or "B < C" or "No
Change". Creating a picture wouldn't make the information usable, unless you
are using it just to look at.

Here is another look at it, this will place BC, B<C, No Change in the cells:

Public Sub Sub_1()

Dim x As Long
x = Excel.WorksheetFunction.CountA(Columns("A:A"))

For y = 2 To x
If Cells(y, 2).Value Cells(y, 3).Value Then
Cells(y, 5).Value = "BC"
Else
If Cells(y, 2).Value < Cells(y, 3).Value Then
Cells(y, 5).Value = "B<C"
Else
If Cells(y, 2).Value = Cells(y, 3).Value Then
Cells(y, 5).Value = "No Change"
End If
End If
End If
Next

End Sub

--
--Thomas [PBD]
Working hard to make working easy.
Answered your question? Click ''''Yes'''' below.


"steve grosz" wrote:

Hello Thomas [PBD],

Ok, that sort of does what I would like. I would like to check to see if
b & c are the same, b is higher than c, or c higher than b, and display an
image indicating if there has been a increase (b higher than c) decrease
(c higher than b) or no change.....

Thanks!

Public Sub Sub_1()
Dim x As Long
x = Excel.WorksheetFunction.CountA(Columns("A:A"))
For y = 2 To x
Range("A1").Cells(y, 5).Formula = "=IF(C" & y & "B" & y &
",TRUE,FALSE)"
Next
End Sub