Garry

I have not studied your code in full but one think that may help you
Instead of using the input box to get the file name change th
directory to the location of file and then use


DataFile $ = Application.GetOpenFilename("Text Files (*.*),*.txt"

--
Message posted from http://www.ExcelForum.com