title: Resize Table VBA Excel
body: <p>I currently have table that ranges from A1:D1</p>
  
  <p>I want to resize it from A1:DIncreasedRange where IncreasedRanged is a Value(Integer) found in cell G3. I have tried that following:</p>
  
  <pre><code>Sub ResizeList()
    Dim wrksht As Worksheet
    Dim objListObj As ListObject
    Dim IncreasedRange As Ingter
  
    Set wrksht = ActiveWorkbook.Worksheets("Sheet1")
    Set objListObj = wrksht.ListObjects("Table1")
  
    IncreasedRange = Worksheets("Sheet1").Cells(3, "G").Value
    MsgBox (IncreasedRange)
  
    objListObj.Resize Range("A1:(D+IncreasedRange)")
  End Sub
  </code></pre>
  
  <p>If I try: </p>
  
  <pre><code>objListObj.Resize Range("A1:D15)")
  </code></pre>
  
  <p>The code works fine otherwise I get an error. Any ideas?<br>
  I have also tried:</p>
  
  <pre><code> objListObj.Resize objListObj.Resize Range(IncreasedRange)
  </code></pre>