Stupid Input Box Error 2015

I just confirmed the problem is with the inclusion of

ActiveWorkbook.Sheets(1).Select
sheett1 = ActiveSheet.Name
ActiveWorkbook.Sheets(2).Select
sheett2 = ActiveSheet.Name
ActiveWorkbook.Sheets(3).Select
sheett3 = ActiveSheet.Name
ActiveWorkbook.Sheets(4).Select
sheett4 = ActiveSheet.Name
ActiveWorkbook.Sheets(5).Select
sheett5 = ActiveSheet.Name
ActiveWorkbook.Sheets(6).Select
sheett6 = ActiveSheet.Name

... I just want to list the worksheet names in my dialogue box, any ideas on how to do that?

OK I've clearly identified it as a problem with 'list separators' :

"1 - " & sheett1 & vbNewLine & _

-- the way the &'s are used with trying to include the defined worksheet name