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).Areas
With myArea.Cells(myArea.Cells.Count + 1)
.Formula = "=Count(" & myArea.Address & ")"
.Font.Bold = True
End With
Next myArea

Sub wehd()
For Each myArea In Range("B:B").SpecialCells(xlCellTypeConstants).Areas
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).Areas
> With myArea.Cells(myArea.Cells.Count + 1)
> .Formula = "=Count(" & myArea.Address & ")"
> .Font.Bold = True
> End With
> Next myArea
>