Macro der sletter alle farvelagt rækker i regneark

Sletter farvede rækker med gult i Ark1. Tilret selv arknavn og colorindex
Hvis du bare vil have slettet indhold inkl. farve i rækkerne og ikke selve rækken skal du bruge Cells(r, 1).Entirerow.Clear

Sub sletfarvederækker()
rw = Sheets("Ark1").Range("a65536").End(xlUp).Row
For r = rw + 1 To 1 Step -1
If Cells(r, 1).Interior.ColorIndex = 6 Then
Cells(r, 1).EntireRow.Delete shift:=xlUp
'Cell(r, 1).EntireRow.Clear
End If
Next r
End Sub

Oversigt over farveindex

http://www.smartoffice.dk/Tips/LibrarySource.asp?App=Excel&Lib=ColorIndex

Svar :-)