Stupid Input Box Error 2015

That code works for me also, is there anything with any of your sheet names that could cause the problem.

you may also want to adjust the code slightly to

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

its always best to avoid select staments , however i wouldnt have thought this would fix the code

UGH! I tried to not use select statements to begin with but I couldn't get the object.property thing correct for assigning sheet names. I replaced the old code with what you wrote, and it works great for defining the variables but I still get the same error as before.