Copy info from one cell into multiple

[Joe B]

Cell A1 has the following information.

Name A;Name B;Name C

I want to take the information that is in Cell A1, which does change but is always in the same format, names separated by semi colons. And display it in three different Cells.

Cell B1 would display Name A
Cell C1 would display Name B
Cell D1 would display Name C

How do I do this. Please help!

 

[Scott Huish]

Use TextToColumns with semicolon as the delimiter.

 

[Joe B]

Sorry I didn't totally explain what I needed.

I want this to be automated. So whatever value appears in Cell A1, will automatically be displayed in cells B1-D1 as requested.

 

[Scott Huish]

In the Worksheet change event:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, d As Range, t
Set d = Intersect(Target, Range("A:A"))
If d Is Nothing Then Exit Sub
Application.EnableEvents = False
    For Each c In d
        t = Split(c, ";")
        If UBound(t) = 2 Then
            c.Offset(, 1) = t(0)
            c.Offset(, 2) = t(1)
            c.Offset(, 3) = t(2)
        Else
            c.Offset(, 1).Resize(, 3).ClearContents
        End If
        
    Next
Application.EnableEvents = True
End Sub