根据工作表VBA的名称将多个工作表添加到新工作簿

This is my first time posting here, so if my question isn't clear I apologize. I have a vba application that currently takes all visible worksheets in my workbook, and creates new workbooks for each. I need to alter this so that I can add multiple sheets to the same workbook.This is my first time posting here, so if my qu