Visual Basic - Formatos de celdas excel

Quisiera saber como seria la linea de codigo de visual basic para darle un formato a una columna de excel ejem el nro es 2 y lo quiero en la celda de excel como 002.....GRACIAS a quien me pueda ayudar!!

Pon esto en el procedimiento de evento CHANGE:

NOTA: Sustituye ********* por el numero de columna que quieras

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Texto As String
On Error GoTo Fin
With Target.Cells
If (.Value <> "") And (.Column = *********) Then
If IsNumeric(.Value) Then
Texto = LTrim(Str(.Value))
Else
Texto = .Value
End If
Select Case Len(Texto)
Case 1
Texto = "00" & Texto
Case 2
Texto = "0" & Texto
End Select
.NumberFormat = "@"
.Value = Texto
End If
End With
Fin:
End Sub

Saludos
Josetxu