Macro from "This Workbook" not working when opening document

[lojanica]

Hi all
I have the code below in "ThisWorkbook" which I want to run each time the document opens.

Private Sub Workbook_Open()

ThisWorkbook.Sheets("ActiveUser").Range("B6").Value = Environ("USERNAME")

End Sub

Can anyone help me understand why the code does not work when opening a document but does when I press Run Sub?

Thanks
Milan

 

[Cubist]

Because Workbook_Open is not meant to run manually. If you want to test it, paste the body of the code into a Sub().

 

[jolivanes]

Re: "the document opens". What does that mean? Sheet or workbook?
Re: "opening a document". What does that mean? Open just that workbook?

 

[lojanica]

Because Workbook_Open is not meant to run manually. If you want to test it, paste the body of the code into a Sub()

When I run manually it works but when opening document it does not work

 

[Cubist]

Which module is it in? It should be in the "ThisWorkBook" module under Microsoft Excel Objects.

 

[jolivanes]

Works here when saving the workbook and opening it.

 

[lojanica]

Works here when saving the workbook and opening it.

that is what I tried, but it will not update B6 if I delete the content saving document and close it.
so when opening it again nothing happens
Must be something my end

 

[lojanica]

Which module is it in? It should be in the "ThisWorkBook" module under Microsoft Excel Objects.

yes it is there

 

[jolivanes]

Saved, opened, checked, cleared, saved, opened again several times.
Same result every time. B6 in ActiveUser sheet has the right data.

 

[Alex Blakenburg]

Do you have any other macros running , Event macros or otherwise ?
If you close the workbook and just before opening it again put this in the immediate window and hit enter

Application.EnableEvents = True

does it then work ?