All Sheets in workbook name

Sub All_Sheet_select()
For each worksheet in Worksheets
MsgBox Worksheet.Name
Next Worksheet
End Sub