File Lsit boxes

Hi

How do u run through every file in a File box, open it and remove data from it

(I know how to open the files :))

What is it that you don't know how to do?
To cycle through the files in the list:

Dim i As Long
Dim sFullPath As String

For i = 0 To File1.ListCount
'Debug.Print File1.List(i)
sFullPath = File1.Path & "\" & File1.List(i)
'do your stuff here
Next i

Yep thats it thanks.

Soz, i should of been a bit more specific.