Dim rng as Range

grubb = Cells(J + K, "V").value
tlow = Cells(J + K, "T").value
thigh = Cells(J + K, "U").value
If tlow grubb Then
set rng = Range("D" & J + K, "N" & J + K)

lowval = Application.WorksheetFunction.Min(rng) 'finds minimum value in
row of data
res = application.Match(lowval,rng,0)
if not iserror(res) then
rng(1,res).Font.Color = RGB(0, 255, 0)
End If

--
Regards,
Tom Ogilvy

"chick-racer" wrote in message
...
grubb = Cells(J + K, "V").value
tlow = Cells(J + K, "T").value
thigh = Cells(J + K, "U").value
If tlow grubb Then
lowval = Application.WorksheetFunction.Min(Range("D" &
J + K, "N" & J + K)) 'finds minimum value in row of data
Cells(Range("D" & J + K, "N" & J +
K)).value(lowval).Font.Color = RGB(0, 255, 0) 'supposed to
shade font of the minimum value, but cannot get it to do this.
End If

I still havent quite got the right format. but i've included a bit more
code to clarify the variables to some extent. Any suggestions as to
what i'm doing wrong?



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/