Autofit VBA excel extract

Estoy creando un extracto en Excel. Estoy extrayendo datos de SQL Server y luego escribiéndolo en Excel. Al principio, creo encabezados especificando la fila, ver debajo …

With xlSheetInfo .Cells(5, 1).ColumnWidth = 50 .Cells(5, 1).Value = "School" .Cells(5, 2).ColumnWidth = 25 .Cells(5, 2).Value = "Name" .Cells(5, 3).Value = "Q1" .Cells(5, 4).Value = "Comments" end with 

luego escribo los datos, usando el set de loggings

 While Not g_RS3.EOF For i = xlCol To rCount Cells(xlRow, xlCol).Value = g_RS3("Location") Cells(xlRow, xlCol).Font.Bold = True xlCol = xlCol + 1 Cells(xlRow, xlCol).Value = g_RS3("LastName") & " ," & g_RS3("FirstName") xlCol = xlCol + 1 Cells(xlRow, xlCol).Value = g_RS3("Q01") xlCol = xlCol + 1 Cells(xlRow, xlCol).Value = g_RS3("Comments") next i wend 

El problema que encuentro es el de "Comentarios", ya que este campo puede tener hasta 500 caracteres. Dado que esta es la última columna de mi extracto, me gustaría que fuera AUTOFIT. En realidad, debido a que hay muchos loggings, me gustaría que se autoajuste o autosize de acuerdo con la duración del comentario más largo. No estoy seguro de dónde debería include esto para que sea autofit. ¿Cómo arreglaría esto?

usa el método AutoFit :

 Cells(xlRow, xlCol).Value = g_RS3("Comments") Cells(xlRow, xlCol).EntireColumn.AutoFit