[Tasos]

Νίκο σ ευχαριστούμε για τη λύση που παράθεσες!

Και εμείς ήμαστε στο Internet και συνήθως οι κώδικες μας δεν είναι φλύαροι

Για παράδειγμα, ο παρακάτω κώδικας διαχωρίζει τη λέξη 1-1 από το κελί A2 στα και περνά τα τμήματα της στα αμέσως επόμενα κελιά δεξιά:

Sub Split_paula()
    Dim arr() As String, i As Integer
    arr = Split(Cells(2, 1), "-")
    For i = 0 To UBound(arr)
        Cells(2, i + 2) = Trim(arr(i))
    Next
End Sub

Φιλικά

Τάσος