I need monthly to loop and delete all workbooks listed in column A,
(full path and file name is given) where column B content = "Y"
A B
File Delete
C:\Progress\ProjA.xls Y
C:\Progress\ProjB.xls
F:\Perf /ProjA\Elec.xls
F:\Perf /ProjA\Equip.xls Y
Help appreciated

J.P.

On Jul 27, 11:21*am, u473 <u...@aol.com> wrote:
> I need monthly to loop and delete all workbooks listed in column A,
> *(full path and file name is given) where column B content = "Y"
> A * * * * * * * * * * * * * * * * * *B
> File * * * * * * * * * * * * * *Delete
> C:\Progress\ProjA.xls * * * *Y
> C:\Progress\ProjB.xls
> F:\Perf /ProjA\Elec.xls
> F:\Perf /ProjA\Equip.xls * * Y
> Help appreciated
>
> J.P.

Sub killem()
On Error Resume Next
For Each fn In Range("A2:A22")
If UCase(fn.Offset(, 1)) = "Y" Then Kill fn
End If
Next fn
End Sub

Brilliant, and thank you again. I was cooking something much more
convoluted.
How would have it been different if path was in Column A, file name in
Column B, Type in Column C and Delete in Column D ?
Sub killem()
On Error Resume Next
For Each fn In Range("A2:A22")
If UCase(fn.Offset(, 4)) = "Y" Then
fn = fn..text + fn.Offset(, 1).text +fn.Offset(, 2).text
Kill fn
End If
Next fn
End Sub
Would t6hat syntax be correct ?
Thank you again,
J.P.