Visual Basic para Aplicaciones - expandir celdas de excel

Hola que tal:

tengo un problema, cuando pongo datos en una celda de excel y esta no es lo suficiente ancha para que quepa el texto me lo muestra asi ########, y me gustaria saber como hago para que se ajusten automaticamente mediante codigo de vb, gracias

mira en la ayuda autofit. Ej. Columns("C:C").EntireColumn.AutoFit

Te recomendaría programar el evento Change de la hoja para que se ajuste automáticamente luego de realizar un ingreso a un a celda. Puedes agregar al evento: Target.Columns.AutoFit.
Quedando el método completo de la siguiente manera:

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Columns.AutoFit
End Sub