Sub something() Dim FilePath As String Dim strFilename As String Dim strTextLine As String Dim iFile As Integer: iFile = FreeFile strFilename = "C:\desktop\file.txt" Open strFilename For Input As [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=iFile]#iFile[/URL] 'read each line in text individually Application.Wait (Now + 0.0000058) 'wait for about half a second Do Until EOF(1) Line Input [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1]#1[/URL] , strTextLine Code Close iFile# End Sub
This is what I have at the moment. I paused the application for about half a second. I was wondering if there's a way to make it so that it only pauses when the text file is fully open.
Thanks n advance