This isn't the finished code, I will need it to loop, but I can't even get it to return the first value!! I have a numerical value in F17 but I cant just say "w = Range("F17").Value" because I will need this formula to start at F17 and keep going until there are no more rows. Here's what I tried after Range("F17").Select and Range("F17").Activate didn't work:

```
Function josh()
Range("D17:H17").Select
Range("F17").Activate
w = ActiveCell.Value
y = ActiveCell.Offset(1, 0).Value
Z = Abs(y - w)
Sum = Sum + Z
josh = Sum
End Function
```

Display More
I hope you can see what I'm trying to do once it starts if I can get the first result. I will start with the first result in F17, take the absolute value of (the cell below it - active cell) and then when I put in the loop it should do the same but one row down so ABS(F19-F18) then next loop ABS(F20-F19) and so on summing the total. The problem in I cant use specific cell references in the loop because I need it to keep moving down an unknown amount of times (until there are no more values in the next cells). Any ideas???? I feel like I'm missing something so simple.

Thanks all for your time and any assistance you may be able to provide.

Regards,

Josh