Copy and paste a name list across worksheets
 

I have an excel worksheet which is a name list of some 50 names. I also have
a workbook which is a collection of some 50 worksheets. Now I want to insert
these names, one by one, into cell A1 of each of the 50 worksheets. Is there
a way to do so in one go, instead of having to copy and paste each name, one
at a time, into cell A1 of each worksheet. Thanks

Copy and paste a name list across worksheets
 

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
...
I have an excel worksheet which is a name list of some 50 names. I also
have a workbook which is a collection of some 50 worksheets. Now I want to
insert these names, one by one, into cell A1 of each of the 50 worksheets.
Is there a way to do so in one go, instead of having to copy and paste each
name, one at a time, into cell A1 of each worksheet. Thanks

Copy and paste a name list across worksheets
 

"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