Fill Progressive Data

[rterke]

Hi
Can any one help me on my issue:

I have one workbook say BOOK1, which has 200 worksheets with identical form which has about 50 rows and 50 columns of data in it.

Now my first question is :
1. How can I change (fill) Data in first sheet lets Say cell A2 as 1, and then every other sheet (199) should be filled in with last number +1

i.e sheet-1 cell A2 = 1
sheet-2 cell A2 = 2
sheet-3 cell A2 = 3....and so on.

2. Same way I want to rename the sheet-1 to sheet-200 with some progressive number say 1,2,3,.......200 as there name, any short cuts for that.

 

[wigi]

For i = 1 to Worksheets.Count
   Worksheets(i).Range("A2").Value = i
   Worksheets(i).Name = i
Next

 

[rterke]

Thanks Wikgi, it worked and I was just wondering how simple code looks when u know it how to do.

Take Care thanks