Subscript out of range error

[etpeterson]

When I run this, I get a run-time error '9': subscript out of range. What is this error, and what can I do to avoid it?

Set FS = Application.FileSearch

With FS
.NewSearch
.LookIn = ws.Range("B5").Value
.Filename = "*.txt"
n = .Execute
End With

Sheets(FS.FoundFiles(counter)).Move After:=Workbooks("Fault Log Creator.xls").Sheets(counter)

I get the error with the last part of the code. If I change it to this:

Sheets(MsgBox(FS.FoundFiles(counter))).Move After:=Workbooks("Fault Log Creator.xls").Sheets(counter)

I get no error, but have to click on a message box for every file I open. Now why would a message box have anything to do with a subscript error? I'm really confused with this. Please shed some light on this.

Thanks,
Eric

 

[Von Pookie]

Please continue in your original thread:
http://www.mrexcel.com/board2/viewtopic.php?t=126720