Is it possible to write a macro on the above subject line .. and insert
blank row in A1 so as to put in the result?

Annette,

Here is one way.

Dim i As Long
Dim cLastRow As Long
Dim cNonBold As Long

cLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To cLastRow
If Not Cells(i, "A").Font.Bold Then
cNonBold = cNonBold + 1
End If
Next i
Range("A1").EntireRow.Insert
Range("A1").Value = "Num non-bold cells = " & cNonBold

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Annette" wrote in message
...
Is it possible to write a macro on the above subject line .. and insert
blank row in A1 so as to put in the result?

This is just too clever ... thank you!

"Bob Phillips" wrote in message
...
Annette,

Here is one way.

Dim i As Long
Dim cLastRow As Long
Dim cNonBold As Long

cLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To cLastRow
If Not Cells(i, "A").Font.Bold Then
cNonBold = cNonBold + 1
End If
Next i
Range("A1").EntireRow.Insert
Range("A1").Value = "Num non-bold cells = " & cNonBold

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Annette" wrote in message
...
Is it possible to write a macro on the above subject line .. and insert
blank row in A1 so as to put in the result?