Visual Basic para Aplicaciones - Modificar diseño de hoja

Hola quisiera saber como puedo modificar el ancho de las columnas de una hoja de excel usando código de visual basic

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.

Gracias Cristhian por el código. Solo un par de dudas:
Me pones una serie de "case" pero te falta el "SELECT CASE", supongo que será "SELECT CASE ANCHO" .
La otra duda que es "eAncho"
Gracias nuevamente