the issue is that the code is is deleting more than i ask for. it also deletes a cell that is not colored.
Dim MyFolder As String
Dim cell As Range
Application.ScreenUpdating = False
With Sheets("Delete Revs")
MyFolder = .Range("K1").Value & "\"
For Each cell...
So am new to VBA and am having a problem with the below:
Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next
Application.EnableEvents = False
If Target.Column = 2 And Target.Value = "Done" Then
LRowCompleted = Sheets("Jobs").Cells(Rows.Count...