Is this what you want?
Rename all columns to specified names, regardless of what they were to begin with?
let Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
NewColumnNames={"apple","banana","chocolate","dog","elephant"},
Rename = Table.RenameColumns( Source, List.Zip( { Table.ColumnNames( Source ), NewColumnNames } ) )
in Rename