1. In Names Manager on the Formulas ribbon, create a new name called SheetNames and type this into the reference box at the bottom: =GET.WORKBOOK(1)&T(NOW())
2. In A1 type this and copy down: =IFERROR(INDEX(MID(SheetNames,FIND("]",SheetNames)+1,255),ROWS(A$1:A1)),"")
It worked without having to save the file as a macro enabled workbook
Good to know - very glad to have helped!
Technically macros should work in a non-macro enabled workbook, but if you don't save the workbook as a macro enabled then the code just gets stripped out upon saving.