title: Naming multiple sheets
body: <p>I have a workbook with two sheet I copy to the end of the workbook.</p>
  
  <p>I am trying to name the two sheet the same name via a InputBox and give them two different suffix as standard, the first is "xxx - Project" and the next is "xxx - Report".</p>
  
  <p>I have placed the two sheets in an array. How do I reference the two sheet via the InputBox?</p>
  
  <pre><code>Public Sub CopySheets()
      Dim shName As String 'Sheet name var
      Dim shExists As Boolean
  
      Do
  
          shName = InputBox("Please enter name of new project", "New Project")
  
          If shName &lt;&gt; "" Then
  
              shExists = SheetExists(shName) 'Check for existing sheet name
              If Not shExists Then
                  Worksheets(Array(1, 2)).Copy After:=Sheets(Sheets.Count)
  
              Else
                  MsgBox "Project Name:" &amp; Space(1) &amp; shName &amp; " already exists", vbOKOnly + vbCritical, "Deter"
              End If
  
          End If
  
      Loop Until Not shExists Or shName = ""
      End Sub
  
      Private Function SheetExists(ByVal sheetName As String, _
        Optional ByVal wb As Workbook)
  
      If wb Is Nothing Then Set wb = ActiveWorkbook
      On Error Resume Next
      SheetExists = Not wb.Worksheets(sheetName) Is Nothing
      End Function
  </code></pre>
  
  <p>Sample image: </p>
  
  <p><a href="https://i.stack.imgur.com/FqWbW.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/FqWbW.png" alt="enter image description here"></a></p>