List all worksheet names

The below code will list down all the worksheet names even thought the sheet has been hidden.


Sub SheetNames()
    For i = 1 To Sheets.Count
    Cells(i, 1) = Sheets(i).Name
    Next i
End Sub