Dim rng1 as Range, rng2 as Range, rng3 as Range
Dim cell1 as Range, cell2 as Range, cell3 as Range
Dim rw as Long

With Worksheets("Sheet1")
set rng1 = .Range(.cells(1,1),.cells(1,1).End(xldown))
set rng2 = .Range(.cells(1,2),.cells(1,2).end(xldown))
set rng3 = .Range(.cells(1,3),.cells(1,3).End(xldown))
End With
rw = 4
with Worksheets("Sheet2")
for each cell1 in rng1
for each cell2 in rng2
for each cell3 in rng 3
rw = rw + 1
.Cells(rw,1).Value = cell1
.Cells(rw,2).Value = cell2
.Cells(rw,3).Value = cell3
Next
Next
Next
End With

--
Regards,
Tom Ogilvy


"chipper" wrote in message
om...
thank you so much for helping - this is perfect. just one last point
ideally i would like the generated content to appear on sheet2
starting at row 5 and for each value to be in its own cell. any
pointers would be greatly appreciated

kind regards

Michael