Private Sub Worksheet_Change(ByVal Target As Range)    
If Target = Range("N1") Then
       	If Target.Value <> "" Then
          	If Len(Target.Value) < 30 Then
 	Target.Parent.Name = Target.Value
             End If
       End If
    End If
    End Sub

Sub Sort_Sheets()    Dim i As Integer, j As Integer
    For i = 1 To Sheets.Count - 1
        For j = i + 1 To Sheets.Count
            If UCase(Sheets(i).Name) > UCase(Sheets(j).Name) Then
                Sheets(j).Move before:=Sheets(i)
            End If
       Next j
    Next i
End Sub