let
Source = Excel.CurrentWorkbook(),
vFileName = Source{[Name="vFileName"]}[Content],
Column1 = vFileName{0}[Column1]
in
Column1
let
Source = Excel.Workbook(File.Contents(GetFileName), null, true),
#"Filtered Rows" = Table.SelectRows(Source, each ([Kind] = "Sheet")),
#"Removed Other Columns" = Table.SelectColumns(#"Filtered Rows",{"Name"})
in
#"Removed Other Columns"
Sub Demo1()
Dim S$(), L&
ReDim S(1 To Sheets.Count, 0)
For L = 1 To UBound(S): S(L, 0) = Sheets(L).Name: Next
[N1].Resize(UBound(S)) = S
End Sub
Sub Demo0()
Dim R&
For R = 1 To Sheets.Count: Cells(R, 14).Value2 = Sheets(R).Name: Next
End Sub