Hi all,

I have a workbook with multiple sheets. I want the sheet 1 always to
display first and is there a method to display the current user name which
updates it self automatically when different users use the book when its on
a share - I'm thinking of setting up a log. I've done the following as a
test but its not really what I want - ideally there would be a text box that
auto changes without it having to be clicked.

Sub logontest()
Worksheets("Frontscreen").Activate
Dim x
Set x = CreateObject("WSCRIPT.Network")
Dim u
u = x.UserName



'update text box "Last Updated:"
ActiveSheet.TextBoxes("txtLogon").Text = "Current Logon : " & u
End Sub