rng(rng.Count).Offset(1, 0).Value = Application.Max(rng) + 1
--
HTH
Bob
(there's no email, no snail mail, but somewhere should be gmail in my addy)
"jlclyde" <(E-Mail Removed)> wrote in message
news:720f3608-1b62-481c-9d24-(E-Mail Removed)...
>I have a worksheet where I need to find the Maximum value in a range
> and add one to that number and add it at the bottom of my range.
>
> At some later point I will be bringing information back to this
> worksheet and i will need to find that number and place data into
> cells on the same row.
>
> If any one can help with these two problems, it woudl be greatlly
> appreciated.
> Thanks,
> Jay
|