Hi,

Its not working, i think we need to add a tab delimiter, please review once...

.TextFileTabDelimiter = True

& Inser this code...

Dim SourcePath As String
SourcePath = InputBox("PLEASE ENTER PATH", "SOURCE PATH") & ""

Thanks....