Hi all,

I Need some help what I need to do it loop throught a coloum and if the cell
has a number value in it. Then compaire it with a variable I have set called
maxval. If the value of the cell is great than the variable maxval. I want
the cell value to replace the variable number then carry on testing each cell
untill the higest number is the value of the variable if this makes sense
this is kinder what I have so far....

Dim maxval As Integer ' variable for the max value
Dim startrow As Integer ' value to startrow

startrow = 0
Do While Data.Range("b2").Offset(startrow, 0).Value
startrow = startrow + 1 ' add one to the startrow to move down the coloum

Loop

any help be great thanks a lot