Here's a portion of code I'm using to sequential number and record quotes that we issue:

Dim Cntr, QuoteNumber As Integer
Cntr = FreeFile()
Open "quotenm.txt" For Input As #Cntr
Input #Cntr, QuoteNumber
Range("g2") = QuoteNumber
Close #Cntr

Open "quotenm.Txt" For Output As #Cntr
Write #Cntr, QuoteNumber + 1
Close

Sometimes (but not always) I get a "Runtime Error 53" - File Not Found.

I suspect that it is only looking at .xls files - presumably the last way the Dialog Box was set. If that's the case, what line of code do I add to tell it to look in ALL files? (If I manually open the text file and then close it, then it finds it just fine).

Thanks for any help.