With code........change the A1 as desired......

Sub username()
Range("A1").Value = ThisWorkbook.BuiltinDocumentProperties("author")
End Sub

Vaya con Dios,
Chuck, CABGx3



"bradasley" wrote:

How can I get a username to appear in a cell?

Thanks

David