Code:
ws2.Range("A1:A4").TextToColumns DataType:=xlDelimited, Tab:=True, _
    SemiColon:=False, Comma:=False, Space:=False, Other:=False, _
    ConsecutiveDelimiter:=False
this is just a sample only
If saving the file doesn't work then in our code this type of statement can resolve the issues