Try something like this

Set DataRange = Range("A1:D10")
Total = WorksheetFunction.Sum(DataRange)
MaxVal = WorksheetFunction.Max(DataRange)
'find Max Value
Set c = DataRange.Find(what:=MaxVal, _
LookIn:=xlValues, lookat:=xlWhole)
'Assume 100% is really 1.00
c.Value = (1# - Total) + c.Value

"FIRSTROUNDKO via OfficeKB.com" wrote:

Hi

I have a selected range of cells which total 99.98%
I need to replace the largest value to round up to 100%
Please can anybody help me.

Regards

Firstroundko

--
Message posted via http://www.officekb.com