Hi,

I have a problem with using Text To Columns in my code, the data includes some dates which are split into their own column

BUT

When this is done any dates dont fall into the date format and have the top left corner of the cell shows an error which when clicked on says "Test Date with 2 Digit Year" then "Covert xx to 20xx"

I do want these to convert t 20xx but i cannot find a way to do this in the vba code, i have tried all sorts but nothings within a macro works you must physically do it on the worksheet.

my code is:

Sub Text_To_Columns()

Application.ScreenUpdating = False

    Sheets("Data SS").Select
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(14, 1), Array(24, 1), Array(32, 1), Array(71, 1), _
        Array(85, 1), Array(100, 1), Array(116, 1)), TrailingMinusNumbers:=True
    Range("A1").Select
    
    Sheets("Data VP").Select
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(14, 1), Array(24, 1), Array(32, 1), Array(71, 1), _
        Array(85, 1), Array(100, 1), Array(116, 1)), TrailingMinusNumbers:=True
    Range("A1").Select
    
Application.ScreenUpdating = True
    
    Call SS_Data_Accs
    
    Call Save
    
End Sub
The format of the dates in the data i am using the code on is the xx/xx/xx if thats of any help but after the code runs i want it xx/xx/xxxx

Thanks

Simon