复制值表单，用作工作表名称(在循环中)- VBA Excel宏

I am attempting to Copy values in a Row, one by one from each cell, then use those values as worksheet names, one by one. One of the issues I had was skipping the first batch of sheets, so I attempted to hide the ones I don't want renamed. All other sheets should be renamed (34 of them). I am attempting to Copy values in a Row, one by