chris2727272727
Board Regular
- Joined
- Jul 10, 2005
- Messages
- 152
i have a large range of data but some of the cells are red i want a cell at the bottom olf the data to calculate the number of red cells in the sheet.
Dim Count_Red As Integer
Sub findred()
Count_Red = 0
Range("a1").Select
Do Until ActiveCell.Value = ""
If ActiveCell.Font.Color = vbRed Then
Count_Red = Count_Red + 1
End If
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Value = Count_Red
End Sub