G'day there Peter T, and Gary's Student,

Thanks for your assistance with this problem. Sorry for not getting
back sooner, but real life & shift work butted in for a week or two.

' in worksheet module
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range

On Error GoTo errExit
Set rng = Intersect(Target, Me.Range("B10:B35")) '<< Change to suit
If Not rng Is Nothing Then
Call CommentStuff(rng)
End If

errExit:
End Sub

I never did find out why it didn't work. I've pulled it apart and
reintroduced the routine's line by line, but I always had the same
result. I've got absolutely no idea why it's behaving the way it is.

I've a funny feeling that it's got some connection to differences
between the Range object, and the Worksheet object. The former has a
'.comment' property & the latter has '.comments'. However, as I said,
I've not pinned it down to anything specific.

Fortunately the application will be used in such a way that it doesn't
really matter. There are 2 different clients. Only a select group will
be putting data in, the rest will have 'read only' access from a central
server. When the workbook is opened it automatically opens on the
title page so when someone moves to another worksheet, the comments
will be formatted correctly.

I guess it's kind of a work around, but I'd have preferred to figure
out what's going on.

Thanks again,
See ya
Ken
Qld, Australia