Hi , how can I add the current User Name to comment ? I am using the line :

ActiveCell.AddComment ("Item was added on " & Str(Now))

I want to set :

ActiveCell.AddComment ("Attribute was added on " & Str(Now) " , it was added
by " )

Thank you

You can use Environ("username") something like this...

ActiveCell.AddComment ("Attribute was added on " & Str(Now) & _
" , it was added by " environ("username"))


--
HTH...

Jim Thomlinson


"Angeles" wrote:

> Hi , how can I add the current User Name to comment ? I am using the line :
>
> ActiveCell.AddComment ("Item was added on " & Str(Now))
>
> I want to set :
>
> ActiveCell.AddComment ("Attribute was added on " & Str(Now) " , it was added
> by " )
>
> Thank you

ActiveCell.AddComment "Attribute was added on " & Str(Now) & _
Chr(10) & " it was added by " & Application.UserName

should work
--
JB


"Angeles" wrote:

> Hi , how can I add the current User Name to comment ? I am using the line :
>
> ActiveCell.AddComment ("Item was added on " & Str(Now))
>
> I want to set :
>
> ActiveCell.AddComment ("Attribute was added on " & Str(Now) " , it was added
> by " )
>
> Thank you

This function call...

Environ("UserName")

will return the user name... just concatenate it where you want it to go.

Rick


"Angeles" <(E-Mail Removed)> wrote in message
news:AC3C3D35-77C7-45B9-BE63-(E-Mail Removed)...
> Hi , how can I add the current User Name to comment ? I am using the line
> :
>
> ActiveCell.AddComment ("Item was added on " & Str(Now))
>
> I want to set :
>
> ActiveCell.AddComment ("Attribute was added on " & Str(Now) " , it was
> added
> by " )
>
> Thank you

It worked !

Thank you very much

"john" wrote:

> ActiveCell.AddComment "Attribute was added on " & Str(Now) & _
> Chr(10) & " it was added by " & Application.UserName
>
> should work
> --
> JB
>
>
> "Angeles" wrote:
>
> > Hi , how can I add the current User Name to comment ? I am using the line :
> >
> > ActiveCell.AddComment ("Item was added on " & Str(Now))
> >
> > I want to set :
> >
> > ActiveCell.AddComment ("Attribute was added on " & Str(Now) " , it was added
> > by " )
> >
> > Thank you