rename_worksheets.vba

  Sub WorksheetLoop()

    Dim I As Integer
    Dim worksheetName As String
    Dim sheet As Worksheet

    I = 1
    For Each sheet In ActiveWorkbook.Worksheets
      worksheetName = "" & I & " - " & sheet.Name
      sheet.Name = worksheetName
      I = I + 1
      Next sheet
    End
    
  Sub