Try
Code:Sub TextToDMY() With Sheets("Imported Assets") With .Range("G2:G" & .Cells(Rows.Count, "G").End(xlUp).Row) .TextToColumns Destination:=.Cells(1), _ DataType:=1, TextQualifier:=1, _ ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, _ Space:=False, Other:=False, FieldInfo:=Array(1, 4), _ TrailingMinusNumbers:=True End With End With End Sub




Reply With Quote
Bookmarks