Workbook Calculate Not Working..

[BenGee]

Hi

I have a shared workbook and this formula won't automatically update;
="Welcome"&" "&PROPER(LEFT(username(),FIND(" ",username())-1))&","

So I added this to calculate on open;

Private Sub Workbook_Open()
    For Each sh In ActiveWorkbook.Worksheets
        sh.Calculate
    Next sh
End Sub

But it still doesn't work. I understand there are limitations with shared workbooks. Is this 1 of them? Is there a way to get this formula to update?

Thank you in advance for your help

 

[RoryA]

What is your username UDF code?

 

[BenGee]

It's

Function username()
username = Environ("username")
End Function

 

[RoryA]

Try adding:

Application.Volatile True

as the first line of the function.

 

[BenGee]

Seems to work perfectly, thank you!