Want to replace sheetname with index number

[djl0525]

I have these two lines in my code.

'For c = 1 To Worksheets("[B]Exercise01[/B]").Shapes.Count

and

  Worksheets("Callouts").Range("C4").Offset(c, 0).Value = Worksheets("[B]Exercise01[/B]").Shapes(c).Name

When I change the Exercise01 sheetname, I have to edit the code.

How can I update the code to refer to sheet index 11 instead of Exercise01?

Any assistance will be greatly appreciated.

DJ

 

[MARK858]

Sheets(11) instead of Worksheets("Exercise01") but you would be better off using the sheets Codename if it is in the same workbook as the macro.

 

[djl0525]

The codename is a good idea... except that sheets are moved and copied into the file from other workbooks. I can not know the codename in advance and I want to avoid going into VBA to edit.

Are you saying, this is what I should do?

For c = 1 To Sheets(11).Shapes.Count

and

Worksheets("Callouts").Range("C4").Offset(c, 0).Value = Sheets(11).Shapes(c).Name

DJ

 

[MARK858]

Are you saying, this is what I should do?

For c = 1 To Sheets(11).Shapes.Count

and

Worksheets("Callouts").Range("C4").Offset(c, 0).Value = Sheets(11).Shapes(c).Name

DJ

If you want to use the sheets Index number then yes (btw, it is always better to test rather than ask ).

I can not know the codename in advance

I assume then you always know the Index number in advance then.

 

[djl0525]

Thanks.