Oops... misunderstood your request.

Here is the correct solution.


Mark Ivey


Sub copy_column_to_all_sheets()
Dim mySheet As String
Dim sh As Worksheet
Dim i As Long

mySheet = Sheets(1).Name

i = 1

For Each sh In ActiveWorkbook.Worksheets
If sh.Name < mySheet Then
With sh
sh.Cells(1, 2).Value = Sheets(mySheet).Cells(i, 2).Value
End With
i = i + 1
End If
Next sh

End Sub






"Mark Ivey" wrote in message
...
Here is something you can try. Change the myRange value to fit what you
need copied.

Mark Ivey


Sub copy_column_to_all_sheets()
Dim mySheet As String
Dim sh As Worksheet
Dim myRange As String

mySheet = Sheets(1).Name
myRange = "B1:B3"

For Each sh In ActiveWorkbook.Worksheets
If sh.Name < mySheet Then
With sh
.Range(myRange).Value =
Sheets(mySheet).Range(myRange).Value
End With
End If
Next sh

End Sub






"Anna" wrote in message
...
I have a list (column) of text that i need to copy into the same cell
reference on multiple sheets;
Each cell in the column needs to go to a different sheet (same cell
reference, different sheet)i.e: first entry of the column should go into
cell
B1 in sheet 1, second entry should go into cell B1 but sheet 2, 3d entry
in
the column should go into cell B1 in sheet 3 and so on,there are 95
entries
in this column that need to go into 95 sheets

Any ideas?