You could fill the range with a formula, then convert those formulas to values:

Dim UltimaRiga as long
Dim myRng as range
With worksheets("Sheet1")
unltimariga = .cells(.rows.count,"A").end(xlup).row
set myrng = .range("G3:G" & ultimariga)
with myrng
.numberformat = "0_ ;[Red]-0 "
.formula = "=D3-I3"
.value = .value
end with
end with


franco monte wrote:

I have this code

UltimaRiga = Range("A65356").End(xlUp).Row
For i = 3 To UltimaRiga
Range("G" & i).Value = (Range("D" & i).Value - Range("I" &
i).Value)
Range("G" & i).NumberFormat = "0_ ;[Red]-0 "
Next i

but I think is better (faster) without loop, is it possible?
Thanks in advance!

--

Dave Peterson