Dim i as Long
Dim sh as Worksheet
Dim rng as Range
for i = 1 to 3
set sh = worksheets("Sheet" & i)
set rng = sh.Range(sh.Cells(1,1),sh.Cells(1,1).End(xldown))
rng.copy destination:=Worksheets("Master") _
.Cells(rows.count,1).End(xlup)(2)
Next

--
Regards,
Tom Ogilvy


"bruce" wrote in message
...
I have several worksheets that I have contact info in. I like to keep the
worksheets seperate (my own pet peeve- I know it would probaly be easier
to
combine them all into one sheet....)
I would like to create a self updating "Mastersheet" that pulls all of the
info from the other worksheet into this one. How would I "step" (step is
probably not the best word, but....) column1 , on each sheet, then copy
that
info into the mastersheet, column1.
I was thinking for a nested IF, comparing the row() to the COUNTA of each
sheet, but is there a cleaner, or simpler way?

Thanks

Bruce