Visual Basic - Ancho de columas Excel

Amigos alguien sabe como dar ancho a las columnas del Excel desde Visual Basic, mandenme un ejemplo porfavor urgente, agradezco sus respuestas. bye.

Prueba con esto:
Dim xlApp As Excel.Application
Dim mySheet As Excel.Worksheet
Sub LlenaLista()
On Error GoTo Errores
Dim vlRuta As String
Dim I As Integer
Set xlApp = CreateObject("Excel.Application")
vlRuta = App.Path & "\cpsp.xls"
xlApp.Workbooks.Open vlRuta
Set mySheet = xlApp.ActiveSheet

For Each col In mySheet.Columns
If col.Column Mod 2 = 0 Then
col.ColumnWidth = 4
End If
Next col

xlApp.DisplayAlerts = False 'permite sobreescribir sin preguntar
xlApp.ActiveWorkbook.Save

MsgBox "Proceso Terminado", vbInformation
xlApp.Quit
Set xlApp = Nothing
Errores:
If Err.Number <> 0 Then
xlApp.Quit
Set xlApp = Nothing
MsgBox Err.Description, vbCritical, CStr(Err.Number)
Err.Clear
End If
End Sub

Ejemplo:
Dim xlApp As Excel.Application
Dim mySheet As Excel.Worksheet
Sub LlenaLista()
On Error GoTo Errores
Dim vlRuta As String
Dim I As Integer
Set xlApp = CreateObject("Excel.Application")
vlRuta = App.Path & "\cpsp.xls"
xlApp.Workbooks.Open vlRuta
Set mySheet = xlApp.ActiveSheet

mySheet.Range("A1:D1").ColumnWidth = 4

xlApp.DisplayAlerts = False 'permite sobreescribir sin preguntar
xlApp.ActiveWorkbook.Save

MsgBox "Proceso Terminado", vbInformation
xlApp.Quit
Set xlApp = Nothing
Errores:
If Err.Number <> 0 Then
xlApp.Quit
Set xlApp = Nothing
MsgBox Err.Description, vbCritical, CStr(Err.Number)
Err.Clear
End If
End Sub

creo que esta es mejor, se agradece Miguel.
Saludos.