Thread: macro/vba
View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
joel joel is offline
external usenet poster
 
Posts: 9,101
Default macro/vba

There are a few ways to do this

for i = 1 to 95
sheets("Sheet" & i).Range("B1") = Activesheet.Range("B" & i)
next i

I don't know how you have the sheets named. The above code assumes the
sheets are named Sheet1 - sheet95

If the sheets are in order and you want to use the index number of the sheet
use the code below. The index number is the order of the sheets in the
workbook. Normally Sheet1 is index 1 and sheet3 is index 3. But you can
move sheets around in the workbookin any order so these number aren't always
the same

for i = 1 to 95
sheets(i).Range("B1") = Activesheet.Range("B" & i)
next i

"Anna" wrote:

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?