Sub Increase()
Dim iLast As Long
On Error Resume Next
iLast = Application.Match(0, Range("A2:AF2"), 0)
On Error GoTo 0
If iLast = 0 Then iLast = 32
MsgBox Format((Cells(2, iLast - 1).Value - Cells(2, iLast - 2).Value) /
_
Cells(2, iLast - 1).Value, "0%")
End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Justin Luyt" wrote in message
...
I have a row of data:
1 5 2 6 8 9 0 0 0 0 0 0 0 0 X (example .. 31 of them, one for each
day)

every day, one value is entered. for today the value is "9". I need a
formula that will automaticly calculate the % increse or decrese of the
last
added value (8-9 in %). The header of these colums can be DATES and we
might
use TODAY to locate and calculate the increse/decrese... or maybe we can
read
all of the values into an array... i do not know... i need help please.

X can be the output of the last increse or decrese

i am not flewent with vba so be detailed in your guidence please.

Justin