title: Excel Spreadsheet Cell Isn't Changing Size
body: <p>I have a spread which I generate in VBA (Access) and basically when I generate the spread sheet, I want to be able to change the column width of "A" but when I try to change it to say 21, it will just change to 25 which isn't the value I want. The only value which works is 0.</p>
  
  <pre><code>With objExcelData
      Set .RecordSource = CurrentDb.OpenRecordset(strSql, dbOpenSnapshot)
      .AddCriteria "Date Range", DateRangeLongText(Me.StartDate, Me.EndDate)
      .Title = "Contact Details"
  End With
  
  With objExcelReport
      Set .xlsheet = objExcelAssist.StartNewSheet(0)
      Set .DataBag = objExcelData
      .ShowTitle = True
      .ShowCriteria = True
      .ShowTotalRow = False
  End With
  
  objExcelReport.GenerateSheet
  
  ' Basic formatting - SHEET 2 -
  With objExcelAssist.worksheet
      .columns(1).ColumnWidth = 21
      .Rows(1).RowHeight = 21
      .columns("D:H").columns.Group
  End With
  </code></pre>
  
  <p>Here I have .columns(1).ColumnWidth = 21</p>
  
  <p>It adjusts the height as I need it to be, however the width doesn't change.</p>
  
  <p><img src="https://i.stack.imgur.com/Lv1rd.png" alt="enter image description here"></p>
  
  <p>However the width hasn't changed at all</p>
  
  <p><img src="https://i.stack.imgur.com/00KoJ.png" alt="enter image description here"></p>
  
  <p>So the height changes, however the width doesn't, any ideas why?</p>