Sub Tester()
Dim a As Range, r As Range

Set r = Union([a2], [a4], [a9:b9])

For Each a In r.Areas
a.Value = a.Offset(-1, 0).Value
Next a
End Sub

Tim


"tom taol" wrote in message
...

Set r = Union([a2], [a4], [a9])
r.FormulaR1C1 = "=r[-1]c"
r.Value = r.Value

i want to chang result value of function of non continuous cells to
value....

*** Sent via Developersdex http://www.developersdex.com ***