Automatically run macro when opening workbook?

Question

I have not used VBA at all and was wondering if anyone could help me with automatically running a macro when opening a workbook? I get an error when opening the workbook stating:

"Run-time error '424': Object required"

Here is the code I tried:

Private Sub Workbook_Open()
    GetUserName = Application.username
End Sub
Function GetUserName()
    GetUserName = Application.username
End Function

SJR · Accepted Answer · 2017-01-13 17:43:30Z

7

Not sure what you are wanting to achieve, but this perhaps?

Private Sub Workbook_Open()
    Sheet1.Range("A1").value=GetUserName
End Sub
Function GetUserName()
    GetUserName = Application.username
End Function

edited Jan 13, 2017 at 17:43

answered Jan 13, 2017 at 16:25

SJR

23.1k6 gold badges21 silver badges26 bronze badges

Sign up to request clarification or add additional context in comments.

14 Comments

asnf21395 Over a year ago

I want the username to appear in a cell within the workbook, not as a msgbox. I appreciate your help.

SJR Over a year ago

@asnf21395 - you didn't say that, I've amended the code.

asnf21395 Over a year ago

I just tried the new code but the cell isn't changing. Is there anything else I can try?

SJR Over a year ago

Works for me. Have you definitely put the Open code in the ThisWorkbook module?

asnf21395 Over a year ago

Yeah, it is pulling the user name but it isn't automatically updating when I reopen the workbook.

|

PSotor · Accepted Answer · 2017-01-13 17:45:48Z

1

To the solution above - the code can be shorten to:

Private Sub Workbook_Open()
    Sheet1.Range("A1").Value = Application.UserName
End Sub

answered Jan 13, 2017 at 17:45

PSotor

3461 gold badge4 silver badges15 bronze badges

Collectives™ on Stack Overflow

Automatically run macro when opening workbook?

2 Answers 2

14 Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

14 Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related