auto generate titles to multiple sheets from a list

If all your worksheets are already set up and say for example the sheet containing the list of sheet names is called 'Sheet Names' and your other 275 tabs are called Sheet2, Sheet3, Sheet4 and so on, you could add the existing Sheet Names in a column next to your new Sheet Names like this, so coulmn A is the new Sheet Name and column B is the current sheet name:

sheetnames.jpg

and then add this macro

Sub RenameWorksheets()
    For i = 1 To 275
        On Error Resume Next
        Oldame = Cells(i, 2).Value
        Newname = Cells(i, 1).Value
        Sheets(Oldname).Name = Newname
    Next
End Sub

If you only currently have one worksheet containing the list of worksheet names and want to generate 275 worksheets named as per you list you could use this, assuming your list of names are in column A on a worksheet called 'Sheet Names'. Change the worksheet name holding your list and the list range in the code below to match what you have:

Sub NameWorksheets()
    Dim MyCell As Range, MyRange As Range
     
    Set MyRange = Sheets("Sheet Names").Range("A1:A275")
    Set MyRange = Range(MyRange, MyRange.End(xlDown))

    For Each MyCell In MyRange
        Sheets.Add After:=Sheets(Sheets.Count) 'Creates a new worksheet
        Sheets(Sheets.Count).Name = MyCell.Value ' Renames the new worksheet
    Next MyCell
End Sub

Just re-read your post an realised this probably is not what you are trying to achieve, I think you actually just want to add the name of each school onto its associated tab rather than rename the tabs themselves...

Are your worksheets called by the names of the schools, i.e. does you list of names match the names of your worksheets or are the worksheet names different to the names of the schools?

It's difficult without seeing an actual sample and knowing whether you want the name to always appear in the same cell on each sheet and knowing whether the names on your school list are in the same order as the sheets themselves, i.e. Sheet2 is School 2, Sheet3 is School 3 and so on, but you could try the following, assuming your School Names currently appear in Sheet1, column A.

Insert a column before your School Names list so that your school names appear in column B to give you something resembling this...

schoolnames.jpg

Print the names of all your worksheets in column A using this macro

Sub SheetNames()
    For i = 2 To Sheets.Count
        Cells(i, 1) = Sheets(i).Name
    Next i
End Sub

to give you something like this...

sheetnames.jpg

Assuming the sheet containing your school names is called 'School Names' (change to your actual sheet name in the formula below) and you want the name of the school to appear in cell A1 on each sheet (adjust to the appropriate cell reference in the formula if not). Select the second tab in your Workbook, hold the Shift key down and then select the last tab in your workbook so you have all 275 sheets selected. Click in cell A1 (or whichever cell you want the School Names to appear in) and paste this formula and hit Enter.

=VLOOKUP(REPLACE(CELL("filename",A1),1,FIND("]",CELL("filename",A1)),""),'School Names'!$A$2:$B$276,2,FALSE)

and see if that gives you what you need. If not perhaps you can upload a sample...

My mistake, change

Cells(i, 2) = Sheets(i).Name

to

Cells(i, 1) = Sheets(i).Name

Sub SheetNames()
    For i = 2 To Sheets.Count
        Cells(i, 1) = Sheets(i).Name
    Next i
End Sub

and give it another go...

Happy to help...

If that has answered your question and solved the problem, can you mark as 'Solved'.