Addstraight after:Intersect(.ResultRange.EntireRow, .Parent.Range("A:A")).Value = "RUNNING".Refresh BackgroundQuery:=False
Addstraight after:Intersect(.ResultRange.EntireRow, .Parent.Range("A:A")).Value = "RUNNING".Refresh BackgroundQuery:=False
p45cal
Everyone: If I've helped and you can't be bothered to acknowledge it, I can't be bothered to look at further posts from you.