title: VBA Table header name does not change
body: <p>In an Excel with macros, every time a button is clicked, 2 new columns are added to an existing table and header of these columns is to be set. It works for the first addition but fails to change the name thereafter even though the columns are being added as required. </p>
  
  <pre><code>Sub Add()
  
  Dim lst as ListObject
  Dim h as Long
  Dim hdrs
  
  hdrs = Array("Value 1", "Value 2")
  
  Set lst =  ActiveSheet.ListObjects("Table1")
  
  With lst
      For h = 0 To 1
          .ListColumns.Add
          .ListColumns(.ListColumns.Count).Name = hdrs(h)
      Next h
  End With
  
  End Sub
  </code></pre>