For the first part use this macro.

Sub Number_Increment()
Dim myNum As Long
Dim iCtr As Long
myNum = 1
For iCtr = 1 To Worksheets.Count
With Worksheets(iCtr).Range("F1")
.Value = myNum - 1 + iCtr
End With
Next iCtr
End Sub

For the second part..........

On the INDEX sheet enter the sheet names 001 through 200+ in Column A

Best way to do this is enter '001 in A1, '002 in A2..........note the
apostrophe.

Drag/copy down to A200

Then on INDEX sheet in B1 enter =INDIRECT(A1&"!"&"A1")

Copy that down 200+ rows.


Gord Dibben MS Excel MVP


On 17 Feb 2007 15:35:23 -0800, wrote:

Hello all,

I'm new to excel programming.

I'm working with a large workbook (over 200 sheets) and I need to
input a number into the same cell (F1) in every sheet. I need sheet
001 to display "1" (no quotes) in F1, and sheet 002 to display "2",
003 to display 3, all the way to sheet 200 displaying '200'. What
formula can I use to achieve this output?

Another thing I need to do is come up with a function that takes a
number value in a cell in one sheet (one of the sheets named 001, 002,
003, etc.) and places it in a specific cell in, let's say, the "INDEX"
sheet. But I need the output cell in the "INDEX" sheet to be
different for every 001 002 003 004 sheet. Let's say I need the
number from cell A1 from every sheet, but I need each sheet to display
their respective A1's in a different cell in the INDEX sheet.

Yeah, it's confusing me. Thanks in advance.