The problem I got is i have a coloum mixed with numbers and text and numbers
for example
10
50
jamie60
paul70

I need to find the max value not includin the text and numbers I dont want
it to even look at them. Once it finds the max value I then need to offset
it to coloum a and disply that value in message box what I guess be somthing
like this
MsgBox .Offset(0, -1).Value

"Vergel Adriano" wrote:

you can get the max value without looping by using the Max worksheet function..

Dim maxval As Long
maxval = WorksheetFunction.Max(Sheet1.Range("A:A"))



--
Hope that helps.

Vergel Adriano


"millwalll" wrote:

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