excel:formatting using a macro

alancool

Hi Folks

Im having a small formatting issue in excel that I would like to iron out:rolleyes:
I loop through column A to find a string when its found I want to:
make the the string bold
change the fill in colour to green
and increment a counter

at the moment it
makes the string bold
changes the font colour to green
and increments the counter

Can anyone help??




Sub macro1
Dim Counter80o As Integer

Counter80o = 0

Range("A1:A10000").Select
For rwIndex = 1 To 10000
For colIndex = 1 To 1
With Worksheets("Sheet1").Cells(rwIndex, colIndex)
If .Value = "80/tcp open http" Then .Font.Color = vbGreen
If .Value = "80/tcp open http" Then Counter80o = Counter80o + 1
If .Value = "80/tcp open http" Then .Font.Bold = True
End With
Next colIndex
Next rwIndex
End Sub

Peace

alancool wrote:

Sub macro1
Dim Counter80o As Integer

Counter80o = 0

Range("A1:A10000").Select
For rwIndex = 1 To 10000
For colIndex = 1 To 1
With Worksheets("Sheet1").Cells(rwIndex, colIndex)
If .Value = "80/tcp open http" Then .Font.Color = vbGreen
If .Value = "80/tcp open http" Then Counter80o = Counter80o + 1
If .Value = "80/tcp open http" Then .Font.Bold = True
End With
Next colIndex
Next rwIndex
End Sub

You shouldn't be changing the font to be green, you should be setting the fillcolor or the backcolor.