Then it can be simpler

Dim oToe As Worksheet
Dim nValue As Double
Set oToe = Worksheets("toekomst_oud")
With Me
nValue = .Range("D12") + .Range("D13")
.Range("I27") = oToe.Columns("P:P") + ovalue
.Range("I28") = oToe.Columns("AB:AB") + ovalue
.Range("I29") = oToe.Columns("AF:AF") + ovalue
.Range("I30") = oToe.Columns("AJ:AJ") + ovalue
.Range("I31") = oToe.Columns("AN:AN") + ovalue
.Range("I32") = oToe.Columns("AR:AR") + ovalue
.Range("I33") = oToe.Columns("AV:AV") + ovalue
End With


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Jean-Pierre D via OfficeKB.com" wrote in message
...
Hi NickHK,
the ranges Range("D12") + Range("D13") refer to
sheets("staffelberekening")
The code is in the object sheet1(staffelberekening) under workbook
'selection
change'



NickHK wrote:
Jean-Pierre,
Which sheets do the ranges Range("D12") + Range("D13") refer to ?

NickHk

Hi,

[quoted text clipped - 18 lines]
Thanks,
Jean-Pierre


--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200508/1