"Otto Moehrbach" wrote in message
...
This little macro will do that for you. I assumed that the sheet that
holds the list of names is named "Names". Change this as you wish. I
also assumed that the names are in Column A and start in A2. HTH Otto
Sub PlaceNames()
Dim rColA As Range
Dim i As Range
Dim c As Long
c = 1
Set rColA = Range("A2", Range("A" & Rows.Count).End(xlUp))
For Each i In rColA
If Worksheets(c).Name = "Names" Then c = c + 1
Worksheets(c).Range("A1").Value = i.Value
c = c + 1
Next i
End Sub
"chungacs" wrote in message

Thanks a lot