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

startrow = 0
With Data.Range("b2")
Do While .Offset(startrow, 0).Value < ""
startrow = startrow + 1 ' add one to the startrow to move down the
coloum
If .Offset(startrow, 0).Value maxval Then
maxval = .Offset(startrow, 0).Value
End If
Loop
End With


but it is simpler with

With Data
Set rng = .Range(.Range("B2"), .Range("B2").End(xlDown))
maxval = Application.MaxChange(rng)
End With


--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)



"millwalll" wrote in message
...
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