Visual Basic para Aplicaciones - Macro para eliminar

Sub DeleteBlue()

    On Error Resume Next

    Range("A1").Activate

    Set r = ActiveCell.CurrentRegion

    Set c = ActiveCell.EntireColumn

    Set rng = Intersect(r, c)

    flg = False

    For Each cell In rng

        If cell.Font.Color = VBA.vbBlue Then

            If flg = False Then

                Set delrng = cell.EntireRow

                flg = True

            Else

                Set delrng = Union(delrng, cell.EntireRow)

            End If

        End If

    Next

    delrng.Delete

End Sub

Sub color_relleno()

For Each cell In Range("a1:a5")

    If cell.Interior.ColorIndex = 23 Then

        cell.Delete

    End If

Next

End Sub

Function indice_color(celda) As Integer

='editor_indent'>indice_color = celda.Interior.ColorIndex

End Function

Sub clean()

Application.ScreenUpdating = False

Application.EnableEvents = False

    Range("a1").Activate

    Set Rng = Range("a1:bn200")

    For Each cell In Rng

        If cell.Font.Color = VBA.vbBlue Then

           cell.Select

           Selection.ClearContents

        End If

    Next

End Sub