delete old files from, folder and list, shift cells up under conditions.

[BRB1983]

the issue is that the code is is deleting more than i ask for. it also deletes a cell that is not colored.

Sub delete_test_2()
Dim MyFolder As String
Dim cell As Range
Application.ScreenUpdating = False
    With Sheets("Delete Revs")
    MyFolder = .Range("K1").Value & "\"
        For Each cell In .Range("C3:C17")
            If cell.Interior.Color = RGB(255, 255, 255) And cell.Offset(0, 1) = "A" Then
                Kill MyFolder & cell.Value & ".pdf"
                cell.Offset(0, 1).Delete xlShiftUp
                cell.Offset(0, 2).Delete xlShiftUp
                cell.Delete xlShiftUp
            End If
        Next cell
            For Each cell In .Range("C3:C17")
                If cell.Interior.Color = RGB(255, 255, 255) And cell.Offset(0, 1) = "0" Then
                    Kill MyFolder & cell.Value & ".pdf"
                    cell.Offset(0, 1).Delete xlShiftUp
                    cell.Offset(0, 2).Delete xlShiftUp
                    cell.Delete xlShiftUp
                End If
            Next cell

 

[BRB1983]

i found an alternative route that works but it gives me "file not found " when code completes.
i think it is searching a blank cell. any ideas? code:

Dim MyFolder As StringApplication.ScreenUpdating = False
    With Sheets("Delete Revs")
        MyFolder = .Range("K1").Value & "\"
            For Each cell In Range("L2:L10000")
            If cell = "" Then
            Else
               Kill MyFolder & cell.Value & ".pdf"
              End If
            Next
    End With
Application.ScreenUpdating = True

 

[Fluff]

That should ignore blank cells. What is the value of Cell when it fails?

 

[BRB1983]

Ok i tried it again and it worked perfectly. i must of had one of the files deleted already.

 

[Fluff]

Glad it's sorted & thanks for the feedback