ich habe 100 identische Tabellenblätter und will das in jeden Tabellenblatt in der gleichen Zelle Fortlaufend ein Zahl steht.
Im ersten Tabellblatt in Zelle C1 die Nummer 1,im zweiten Tabellenblatt in Zelle C1 die Nummer 2 usw.
Option Explicit
Dim ws As Worksheet
Private Sub Workbook_Open()
For Each ws In ThisWorkbook.Worksheets
ws.Select ' kann auch entfallen
ws.Cells(1, 3).Value = ws.Index
Next ws
End Sub
Grüße, Bernd