goto max

[birdman]

does anyone know the code to find the largest number in a column and then goto that cell with the largest number? thanks in advance

 

[Zack Barresse]

Then how about utilizing some proper syntax here, rather than create an unecessary column ...


<font face=Tahoma New>    <SPAN style="color:#00007F">Dim</SPAN> r <SPAN style="color:#00007F">As</SPAN> Range, m
    m = WorksheetFunction.Max(Columns("D:D"))
    <SPAN style="color:#00007F">Set</SPAN> r = Columns("D:D").Find(m, LookIn:=xlValues)
    <SPAN style="color:#00007F">If</SPAN> <SPAN style="color:#00007F">Not</SPAN> r <SPAN style="color:#00007F">Is</SPAN> <SPAN style="color:#00007F">Nothing</SPAN> <SPAN style="color:#00007F">Then</SPAN>
        r.Select
        MsgBox "Cell found in " & r.Address(0, 0)
    <SPAN style="color:#00007F">Else</SPAN>
        MsgBox "No value was found."
    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN></FONT>