title: Excel VBA unify two variables
body: <p>I have a this code:</p>
  
  <pre><code>Public nrSheet As Integer
  Public sheetName As Variant
  
  Sub serials()
  
  a = 1
  nrSheet = ThisWorkbook.Sheets.Count
  For i = 2 To nrSheet
      sheetName = Sheets(i).Name
      a = a + 1
  Next
  End Sub
  </code></pre>
  
  <p>and I want to have something like </p>
  
  <p><strong>sheetName &amp; a = Sheets(i).Name</strong></p>
  
  <p>and the result should be: </p>
  
  <p>sheetName1 = "Sheet1"</p>
  
  <p>sheetName2 = "Sheet2"</p>
  
  <p>How can I do that since is not working with &amp; or + </p>
  
  <p>Thank you</p>