Autoajustar anchura columnas Excel

Para que las columnas de Excel adquieran automáticamente la anchura necesaria con el fin de evitar que se muestren los caracteres “###”, podemos usar la siguiente función en el Workbook:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Sh.UsedRange.Columns.AutoFit
End Sub

Otras opciones son:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range
For Each cell In Target.Cells
cell.EntireColumn.AutoFit
Next cell
End Sub

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

De esta manera cuando cualquier celda de cualquier hoja cambie su anchura, la columna correspondiente se ajustará para hacer visibles todos los valores que tiene.

Artículos relacionados:
http://circulotito.blogspot.com/2008/06/tildes-en-archivos-bat-en-smbolo-del.html