ateneva
4/22/2017 - 10:58 AM

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

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

UpdatePaths.bas
content_copyfile_download
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