Naming tabs automatically

[planetjed]

Can anyone tell me if it's possible to program excel to name a tab based on input into a cell in the worksheet. For example: if I enter the date in a specific cell, can excel take that date and name the worksheet by that date i.e. the tab name changes from sheet 1 to the date input in the cell?

Please help I have 900 of these to do manually.

Thanks

[Leith Ross]

Hello planetjed,

This macro assumes the name cell for the worksheet is the same on all worksheets. The macro will use the contents of that cell location as the new worksheet name. There may be certain sheets in the workbook you don't want renamed. In this macro the sheets named "Main" and "Summary" are skipped. All other sheets are renamed using the contents of cell "C2". These are all marked in red to make it easy for you to change them.

Sub RenameSheets()

  Dim NewName As String
  Dim Wks As Worksheet

    For Each Wks In Worksheets
      Select Case Wks.Name
        Case Is = "Main", "Summary"
          'Skip renaming these sheets
        Case Else
          Wks.Name = Wks.Range("C2").Text
      End Select
    Next Wks

End Sub

Sincerely,
Leith Ross