help needed with excel 97

  • Thread starter Thread starter sithlord3k
  • Start date Start date
S

sithlord3k

I need help with a problem that I'm having. I've got about 300 sheets i
my excel workbook. I need to copy the data from cell B5 on ever
sheet,into a new sheet.
What can I do
 
i=1
For j = 1 To ActiveWorkbook.Worksheets.Count
If Worksheets(i).Name <> Activsheet.Name Then
Range("A" & i).Value = Worksheets(i).Range("B5").Value
End If
Next j
 
Back
Top