walkerke2
07-11-2008, 12:22 AM
Hi All,
I'm a newbie so just let me know if I can manipulate it a little to the needed.
The data is coloured green when the jobs have been processed but this code will only delete a portion of the completed green coloured jobs.
I want' it to delete all green rows.
Any help much appreciated.
Sub DeleteGreen()
Dim R As Range, c As Range
Set R = ActiveSheet.Range("A:A")
For Each c In R
If c.Interior.Color = vbGreen Then
c.EntireRow.Delete
End If
Next c
End Sub
I'm a newbie so just let me know if I can manipulate it a little to the needed.
The data is coloured green when the jobs have been processed but this code will only delete a portion of the completed green coloured jobs.
I want' it to delete all green rows.
Any help much appreciated.
Sub DeleteGreen()
Dim R As Range, c As Range
Set R = ActiveSheet.Range("A:A")
For Each c In R
If c.Interior.Color = vbGreen Then
c.EntireRow.Delete
End If
Next c
End Sub