sequence number

[MikkoR]

how do i create a sequence number for each sheets? The first sheet gets a value of one and the second two, etc. That value would be recorded in the same cell for each sheet. I have a workbook with 150 sheets.

MR

 

[Peter_SSs]

Like this?

Sub NumberSheets()
  Dim i As Long
  
  For i = 1 To Sheets.Count
    Sheets(i).Range("Z1").Value = i
  Next i
End Sub

 

[mohadin]

Hi
My understanding

Sub test()
    Dim i%
    For i = 1 To Sheets.Count
        Sheets(i).Name = i
    Next i
End Sub

 

[MikkoR]

Like this?

Sub NumberSheets()
  Dim i As Long
 
  For i = 1 To Sheets.Count
    Sheets(i).Range("Z1").Value = i
  Next i
End Sub

Thank you so much, that was exactly what I needed

MR

 

[Peter_SSs]

Thank you so much, that was exactly what I needed

You're welcome. Thanks for the confirmation.

My understanding

Perhaps you missed this?

That value would be recorded in the same cell for each sheet.