With Range("A2:A10000")
        .Formula = "='" & sPath & "[" & sFile & "]" & sShName & "'!" & "A3"
        .Value = .Value
    End With  

Private Sub Worksheet_Activate()

    Dim sPath As String, sFile As String, sShName As String
    
    sPath = ThisWorkbook.Path & "\"
    sFile = "Файл.xlsx"
    sShName = "Лист"
    
    Application.DisplayAlerts = 0
    
    With Range("A3:A10000")
        .Formula = "='" & sPath & "[" & sFile & "]" & sShName & "'!" & "A3"
        .Value = .Value
    End With
    
    With Range("B3:B10000")
        .Formula = "='" & sPath & "[" & sFile & "]" & sShName & "'!" & "B3"
        .Value = .Value
    End With
    
    Application.DisplayAlerts = 1

End Sub

Range("A1").Formula = "=СЕГОДНЯ()"

=@СЕГОДНЯ()