if file name in column C is red the delete that file from folder

[BRB1983]

I am trying to delete old files from a folder. file names are in column C and old files are colored RGB(255,0,0) i get an error when running this code." file not found". i tried peacing different codes together but, i'm still learning.

Sub Delete_test()
Dim MyFolder As String
Dim MyFile As String
Dim cell As Variant
Dim source As Range
Set source = Range("c3:c8")
MyFolder = Sheets("Delete Revs").Range("K1").Value & "\"
MyFile = Dir(MyFolder & "\" & "*.pdf*")
    For Each cell In source
        If cell.Interior.Color = RGB(255, 0, 0) Then
            Kill MyFile
        Else
        End If
    Next
End Sub

 

[Fluff]

Do the file names include the file path and/or the file extension?

 

[BRB1983]

just file name.
File Name: AG-140205-P316-02-REV 2

 

[Fluff]

Ok, how about

Sub BRB1983()
   Dim MyFolder As String
   Dim cell As Range
   
   With Sheets("Delete Revs")
      MyFolder = .Range("K1").Value & "\"
      For Each cell In .Range("C3:C8")
        If cell.Interior.Color = RGB(255, 0, 0) Then
           Kill MyFolder & cell.Value & ".pdf"
        End If
      Next cell
   End With
End Sub

 

[BRB1983]

yes that works thanks

 

[Fluff]

You're welcome & thanks for the feedback