Username ()

[jamesmev]

I am using the above to place the users information within the sheet. However, I have many sheets within my workbook and unless the actively click on the cell it doesn't populate that cell. Is there a VBA or macro that will engage this on all sheets updating all fields with Username() to that user without extra steps?

thank you

 

[mole999]

you might consider worksheet_activate, and then use Environ for your target cell, then it will always be right for the relevant user (unless they disable macros)

 

[jamesmev]

you might consider worksheet_activate, and then use Environ for your target cell, then it will always be right for the relevant user (unless they disable macros)

How would that look in VBA? And would that go on every sheet that the code needs to be pulled from? Would this be a module?

 

[mole999]

something like, on the worksheet >

Private Sub Worksheet_Activate()
ActiveSheet.Range("A1") = Environ("username")
End Sub

 

[jamesmev]

something like, on the worksheet >

Private Sub Worksheet_Activate()
ActiveSheet.Range("A1") = Environ("username")
End Sub

This code did not work when the workbook opened. Any additional thoughts on this?

 

[mole999]

it should work on worksheet change not workbook activate
you could on workbook open just run the code to point to the sheet you want first and then..

sheets("your first sheet").select
sheets("your first sheet").Range("A1") = Environ("username")

or


with sheets("your first sheet")
.select
.Range("A1") = Environ("username")
end with