This is a sub I use to kill a file where the full path is typed into a cell
along with some other stuff in the same row.
Maybe you need to just set the path and kill that.
Or, maybe just change to
Kill ThePathDocs & TheFile.FullName
Sub KillFile()
mc = Choose(ActiveCell.Column, 4, 3, 2, 1, 0)
wbn = ActiveCell.Offset(0, mc).Value
MyAnswer = MsgBox("Do you want to KILL this file?", vbYesNo)
If MyAnswer = vbYes Then
Kill wbn
ActiveCell.EntireRow.Delete
End If
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"Otto Moehrbach" wrote in message
...
Excel XP & Win XP
In this snippet of code I am trying to "Kill" 3 files. I get a "Subscript
out of range" error on the "Kill" command with the first file. So I
changed the order of the files in the "For Each.." line and again I get
that error with the first name. This tells me that the problem is with
the "Kill" line. The "ThePathDocs" is the path to the folder that holds
the files. What did I do wrong? Thanks for your time. Otto
For Each TheFile In Array("One.doc", "Two.doc", "Three.doc")
Workbooks(ThePathDocs & TheFile).ChangeFileAccess xlReadOnly
Kill Workbooks(ThePathDocs & TheFile).FullName