Generate dynamic list of Sheets

Here is another macro that can be considered...

Sub ListVisibleSheetNames()
  Dim X As Long
  For X = 1 To Sheets.Count
    If Sheets(X).Visible Then
      If Sheets(X).Name <> "Home" Then Cells(19 + X, "B").Value = Sheets(X).Name
    End If
  Next
End Sub