Web Development

General discussion


ATTN: Calypso28-You closed your question

By Kevin McCane ·
This is a message for CALYPSO28. They requested additional help on an Excel problem but closed their question and I can not reply to them any other way. They question they asked is how to loop through a set of contiguous rows and delete all of therows with a red font in column A. The suggested code is listed below.

> Sub DeleteRowsWithRedFontInColumA()
> For X = 1 To Cells(60000, 1).End(xlUp).Row
> If Cells(X, 1).Font.ColorIndex = 3 Then
> Rows(X).EntireRow.Delete SHIFT:=xlUp> X = X - 1
> Else
> End If
> Next X
> MsgBox "Done"
> End Sub

Hope this helps,
Kevin McCane
MGA Engineering

This conversation is currently closed to new comments.

Thread display: Collapse - | Expand +

All Comments

Related Discussions

Related Forums