Sub EachWorksheets()
Dim ws As Worksheet
x = 1
Range(«E1:E10»).ClearContents
For Each ws In Worksheets
Cells(x, 5).Value = ws.Name
x = x + 1
Next
End Sub