ATTN: Calypso28-You closed your question

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