Right click on the Sheet tab of the worksheet that has the DynamicRange
defined. Select View Code. Paste in this code in the resulting module

Private Sub Worksheet_Calculate()
Me.Range("B1").NoteText ( _
Application.Sum(Range("DynamicRange")) / _
Application.CountIf(Range("DynamicRange"), "0"))
End Sub

--
Regards,
Tom Ogilvy

"Neal" wrote in message
...
In this example it is the Name of a Dynamic Range I have set up for
accepting
new data.

"Tom Ogilvy" wrote:

What is dynamicrange supposed to be?

--
Regards,
Tom Ogilvy

"Neal" wrote in message
...
Will someone offer some assistance with this pls,

Is it possible to have the result of this formula
=SUM(DynamicRange)/COUNTIF(DynamicRange,"0")displayed as a comment
attached
to cell B1? The comment would need to continually update as dynamic
data
is
changing.

TIA