Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
Application.EnableEvents = False
Target.Offset(, 1) = Mid(Target.Value, InStr(Target.Value, ".") + 1)
Target = Left(Target.Value, InStr(Target.Value, ".") - 1)
Application.EnableEvents = True
End If
End Sub