ok try this:

Dim ClosingCell As Range

For Each ClosingCell In
ActiveSheet.Range("g9:g12,g17:g22,g28:g39,g45,g48, g62:g84,g89:g98,g106,g112:g114,g142:g147,g149:g152 ,g157:g168,g170:g176,g178:g185,g189:g195")
Worksheets(ActiveSheet.Index + 1).Cells(ClosingCell.Row, ClosingCell.Column
- 2) = ClosingCell
Next ClosingCell


"srinivasan" wrote:

Mr Charlie,

No it is not working. it gives value of cell g9 in all the cells. It has to
be fine tuned, I think.