[COLOR="DarkSlateGray"][B]Private Sub Worksheet_Change(ByVal Target As Range)
Dim oCel As Range, vCel As String
If Not Intersect(Target, Columns(1)) Is Nothing Then
Application.EnableEvents = False
For Each oCel In Intersect(Target, Columns(1)).Cells
If Not IsEmpty(oCel) Then
vCel = "'" & CStr(oCel.Value2)
oCel.Value2 = "IP-" & Mid$(vCel, 2, 6) & "." & _
Mid$(vCel, 8, 2) & "." & Mid$(vCel, 10, 2) & _
"." & Mid$(vCel, 12, 3)
End If
Next oCel
Application.EnableEvents = True
End If
End Sub[/B][/COLOR]