My problem :

In Coloumn D i am going to have 10 sets of numbers

12.37
14.63
2.54
4.79
19.21
15.84
25.91
2.49
0.95
1.28

These numbers added up equal 100.1. I have to right a macro that will sum up the numbers and if it is > 100 than it will minux X amount(over 100) from the first highest number? Alternatively, if it is < 100 than i will have to add x amount(under 100) to the highest number.

So far i've got the easy parts down, Summeing the number but i am really stuck in how to figure out how to scan the block of numbers for the highest amount and than add/sub the over/under. Unfortunately, The programmer who used to do these has left so it goes to the next qualified person. The Network admin :( because of course he knows programming :( /rant off

Thanks in advance for any help
Keith

Sub myMacro()
Dim myColDSum
Dim myColDMax
Dim myColDNewMax
    myColDSum = WorksheetFunction.Sum(Range("D:D"))
    myColDMax = WorksheetFunction.Max(Range("D:D"))
    If myColDSum <> 100 Then
        myColDNewMax = (100 - myColDSum) + myColDMax
    End If
    Range("D:D").Select
    Selection.Find(What:=myColDMax, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False).Activate
    ActiveCell.Value = myColDNewMax
    Range("D1").Select
End Sub

cheers

Matt

Thank you very much, I'm grateful. One thing popped up though if the sum of the numbers equaled 100 it would than put a blank in the cell so all i did was move the End If a little further down in order to skip the search process as it wasn't needed.

 Sub myMacro()
Dim myColDSum
Dim myColDMax
Dim myColDNewMax
    myColDSum = WorksheetFunction.Sum(Range("D:D"))
    myColDMax = WorksheetFunction.Max(Range("D:D"))
    If myColDSum <> 100 Then
        myColDNewMax = (100 - myColDSum) + myColDMax
    Range("D:D").Select
    Selection.Find(What:=myColDMax, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False).Activate
    ActiveCell.Value = myColDNewMax
    End If
    Range("D1").Select
End Sub

Thanks again for the help. I've been learning a lot from these code snippets.

Thanks,
Keith