Update Files.SheetsInFolder.pq

Hello,
Sometimes i have name like "_xlnm._FilterDatabase" in column name.
We have 2 ways - add a new filter in #OnlySheets or created a new line.
I like new line :) 
Thanks for your work!

Files.SheetsInFolder.pq

@@ -13,7 +13,8 @@ let
     RemovedOtherColumns = Table.SelectColumns(FilteredRows,{"Content", "Name"}),
     NoTemps = Table.SelectRows(RemovedOtherColumns, each not Text.StartsWith([Name], "~$")),
     InsertedCustom = Table.AddColumn(NoTemps, "Sheets", each Excel.Workbook([Content])),
-    Expanded = Table.ExpandTableColumn(InsertedCustom, "Sheets", {"Data", "Name"}, {"D","N"}),
+    Expanded = Table.ExpandTableColumn(InsertedCustom, "Sheets", {"Data", "Name","Kind"}, {"D","N","K"}),
     NoPrintAreas = Table.SelectRows(Expanded, each not Text.Contains([N], "$"))
+    OnlySheets = Table.SelectRows(NoPrintAreas, each Text.Contains([K], "Sheet"))
 in
-    NoPrintAreas
+    OnlySheets