RE:Modificar diseño de hoja
Set objHoja = objBook.Worksheets.Add
Public Sub WidthColumn(ByVal Fila1 As Long, ByVal Columna1 As Long, ByVal Fila2 As Long, ByVal Columna2 As Long, Ancho As eAncho)
objHoja.Range(objHoja.Cells(Fila1, Columna1), objHoja.Cells(Fila2, Columna2)).ColumnWidth = 10
Case eAncho.Medio
objHoja.Range(objHoja.Cells(Fila1, Columna1), objHoja.Cells(Fila2, Columna2)).ColumnWidth = 16
Case eAncho.Grande
objHoja.Range(objHoja.Cells(Fila1, Columna1), objHoja.Cells(Fila2, Columna2)).ColumnWidth = 26
Case eAncho.Vacio
objHoja.Range(objHoja.Cells(Fila1, Columna1), objHoja.Cells(Fila2, Columna2)).ColumnWidth = 0
End Select
End Sub
Esta funcion le mandas las celdas (a1:a1) en este caso (1,1,1,1) y le mandas el tipo de ancho que deseas, los valores los puedes cambiar especificando el ancho que desees. Analiza el codigo ok. Suerte.