Ecxel Help Request

[Dirk Diggler]

GD is usually great for this...

I want to add the name of the last author in a cell. I have used this VBA code to do it, but it only adds the first name "Joe" but I want to to say "Joe Bloggs".

Function LastAuthor()
LastAuthor = ActiveWorkbook.BuiltinDocumentProperties("Last Author")
End Function

In the cell I put:

=LastAuthor()

 

[matt100]

I don't know VBA but can't you just concatenate it?

 

[ArchAnGeL]

I just recreated that in a blank book and got both names
Using office pro plus 2013

 

[Dirk Diggler]

I just recreated that in a blank book and got both names
Using office pro plus 2013

Ah, I wonder if it's taken from the PC login details as opposed to the O365 user details.

 

[Dirk Diggler]

Changed PC account name but that doesn't help.

Hmm

 

[Grrrrr]

I can't help with your question but I would suggest changing ActiveWorkbook to ThisWorkbook. If you have another spreadsheet open your formula will display the Last author of the foreground spreadsheet not necessarily the spreadsheet the formula is in

 

[Dirk Diggler]

@Grrrrr thanks for that, I'll amend it.

 

[adolf hamster]

when i've used vba before to get author details it's been linked to the office account iirc, so the name that appears will depend on whatever the user put in for that.

for example my own name would come out in full, others would be an email address etc.

 

[Dirk Diggler]

I don't know if I need to format the output somehow, as maybe it defaults to first name only. How could I tell what data is available?

 

[Grrrrr]

Sub Test()
Dim WB as Workbook

Set WB = ThisWorkbook
Stop

End Sub

When the code stops use the "locals" window (you might need to switch it on from the view menu) to explore pretty much everything associated with the workbook in the WB variable.