Hi
two points:
1. PLEASE change your systme clock. Or do you want to be on top of the
list
2. Still not defined where the output should happen. But try the
following (adapt to your needs)
sub foo()
dim arow as long
dim brow as long
dim crow as long
dim trow as long
dim tcol as integer
dim res
tcol=4
trow=1
application.screenupdating=false
with activesheet
for arow=1 to 20
for brow=1 to 50
for crow=1 to 75
res=.cells(1,arow).value & .cells(2,brow).value &
..cells(3,crow).value
cells(trow,tcol).value=res
if trow < 65536 then
trow = trow+1
else
trow=1
tcol=tcol+1
end if
next
next
next
end with
application.screenupdating=true
end sub