Sub wehd()
For Each myArea In Range("B:B").SpecialCells(xlCellTypeConstants).Are as
With myArea.Cells(myArea.Cells.Count).Offset(1, 1)
.Formula = "=Count(" & myArea.Address & ")"
.Font.Bold = True
End With
Next myArea
End Sub


"Alan M" wrote:


I am using the following code to count the values in column
B but want to place the total in bold font in another column.

How can I do this please?

For Each myArea In Range("B:B").SpecialCells(xlCellTypeConstants).Are as
With myArea.Cells(myArea.Cells.Count + 1)
.Formula = "=Count(" & myArea.Address & ")"
.Font.Bold = True
End With
Next myArea