Here's a modified sub that fits your scenario with requiring editing...

Sub ChangeTabNames2()
Dim rng As Range, i As Integer
Application.ScreenUpdating = False
For Each rng In Worksheets("Master").Range("B13:B30")
i = i + 1: Sheets("Stud" & i).Name = rng.Value
Next rng
End Sub

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc