Quickly update desktop paths depending on who is using the workbook at the moment

UpdatePaths.bas

Private Sub Workbook_Open()

Dim Cell As Range
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Application.Calculation = xlCalculationAutomatic
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

'update paths
Worksheets("MACROS").Activate
If Application.UserName = "Angelina Teneva" Then

    For Each Cell In ActiveSheet.Range("A4:A27")
        Cell.Value = Cell.Offset(0, 15)
    Next Cell

Else

    For Each Cell In ActiveSheet.Range("A4:A27")
        Cell.Value = Cell.Offset(0, 17)
    Next Cell

End If
End Sub