Hi,

Yes thank you, I would appreciate very much if you could send a working copy
of a workbook.
I guess this will enable me to find out what I have done wrong.
My email address is:


Regards,
K.Pedersen


"Gord Dibben" <gorddibbATshawDOTca skrev i en meddelelse
...
See in-line comments.

On Sat, 12 Jan 2008 13:07:22 +0100, "KP" wrote:

Hi,

Unfortunately, I have still problems with the macro.

1.
Yes the file name I use is Allskeds.xls

OK...if it wasn't you would get error message when you tried to run the
macro

2.
Here I have placed the macro CommentDateTimeAdd:
VBAProject (Allskeds.xls)Microsoft Excel ObjectsModulesModule1

Looks OK from your description.

3.
Here I have placed the Private Sub Workbook_Open
VBAProject (Allskeds.xls)Microsoft Excel ObjectsThisWorkbook

That is correct module for this event code.

The macro for use on the Worksheet Menu works fine. The problem is only
the
right-click menu.
Opening the Allskeds file I receive the error message:
Run-time error "5"
Invalid procedure call or argument

and this line is marked with yellow colour:
With Application.CommandBars("Cell").Controls("Insert Comment")

I cannot replicate that error on opening the workbook.

I appreciate very much your help and hope you can figure out what I do
wrong.

I can send you a working copy of a workbook or hopefully someone can
respond
with some suggestions for the Run-time error "5"

Best regards
K. Pedersen

Gord




"Gord Dibben" <gorddibbATshawDOTca skrev i en meddelelse
. ..
No one can test unless the other macro I posted is present in the
workbook.

Did you also copy the CommentDateTimeAdd macro into a general module in
the
workbook?

Did you change "Allskeds.xls" to your workbook name?

That was the name of my workbook when I tested the macro and the
workbook_open
event code.


Gord

On Fri, 11 Jan 2008 23:59:41 +0100, "KP" wrote:

Hi,
Yesterday I asked the following question in this group:

When I right click "Insert comment", I want the date and time to be
standard in
the comment box just below the first default line with the username.

I want it to be available already when I open the file without having
to
run
the macro manually or by shortcut selection.

In addition, is it possible - in the same macro - to change the first
line
with username from bold to plain text.

--------------------------------------------------------------
I received the following answer:

To add the macro to the right-click menu...............

Add this to Thisworkbook module

Private Sub Workbook_Open()
With Application.CommandBars("Cell").Controls("Insert Comment")
.OnAction = "Allskeds.xls" & "!CommentDateTimeAdd"
End With
End Sub

Gord Dibben MS Excel MVP
---------------------------------------------
However, this will not work. Probably because I have done something
wrong.
The above macro has been inserted in Thisworkbook module.
When I right click Insert Comment, just the ordinary default username
(with
bold) is inserted in the comment box and no date. The macro has no
effect
at
all.
Should it in addition be assigned in some other way?
If somebody could test the macro and tell me what to do to solve the
problem, I would appreciate it very much.
I am running Excel 2003.
Thank you.

K. Pedersen