Sub RenameWorksheet()

Dim WS As Worksheet
     For Each WS In ThisWorkbook.Worksheets
            WS.Name = WS.Range("E1").Value
     Next WS
End Sub