In Excel, how do I insert User Name (author) in a cell.

[George B.]

The function =CELL("filename",A1) returns a file name and sheet name in a
cell. How can I obtain the User Name?

[Excel_Geek]

You can write some VBA to do it.

Sub Return_UserName()

Sheets("sheet1").Range("A2").Value = Application.UserName

End Sub

[Excel_Geek]

And to return just the filename (if you like) you can use this formula:

=MID(CELL("filename",A1),FIND("[",CELL("filename",A1))+1,FIND("]",CELL("filename",A1))-FIND("[",CELL("filename",A1))-1)

[George B.]

Very nice. This is going into my Macro Toolkit.

"Excel_Geek" wrote:

>
> You can write some VBA to do it.
>
> Sub Return_UserName()
>
> Sheets("sheet1").Range("A2").Value = Application.UserName
>
> End Sub
>
>
> --
> Excel_Geek
>
>
> ------------------------------------------------------------------------
> Excel_Geek's Profile: http://www.excelforum.com/member.php...o&userid=26423
> View this thread: http://www.excelforum.com/showthread...hreadid=398347
>
>