Hi,

I am having trouble with the code below. I am trying to use the below code to split up a ticker symbol entered in Sheet1.A1. The format is XXXX:XXX and I am looking to preserve the letters after :

The code below only returns the stuff before the :

Any help would be appreciated.


Sub SplitIt()

    Dim s As Variant
    Dim p As Variant
    
    s = Worksheets("Sheet1").Cells(1, 1).Value
    
    p = Split(s, ":")
    
    For Each i In p
    Worksheets("Sheet6").Cells(1, 1).Value = p
    Next
    
    

End Sub