Используйте это для привязки значения к имени пользователя и событию Workbook_Open.Просто убедитесь, что у вас есть правильное имя в «Метке 1».
Private Sub Workbook_Open()
Worksheets("YourSheetName").Shapes("Label 1").TextFrame.Characters.Text = Environ("Username")
End Sub
Поместите его в VBA.Project ThisWorkbook
Здесь вы найдете название метки: