=ЕСЛИОШИБКА(ДВССЫЛ(ТЕКСТ(H1;"ДД.ММ.ГГГГ")&"!C5");"")

Private Sub Worksheet_Change(ByVal Target As Range)
Dim iName As String
    If Target.Cells.Count > 1 Then Exit Sub 'выделено больше одной ячейки
    If Not Intersect(Target, Range("H1")) Is Nothing Then
     Application.EnableEvents = False
     Application.ScreenUpdating = False
     Dim wb As Workbook
     Dim pathTbl: pathTbl = "C:\таблицы.xlsx"
     If Dir(pathTbl) = "" Then MsgBox "Книга " & pathTbl & " не найдена!", _
        vbCritical: Application.EnableEvents = True: Exit Sub
     'Указать путь к книге с таблицами для копирования
     Set wb = Workbooks.Open("C:\таблицы.xlsx")
     iName = CStr(Target)
      If SheetExist(wb, iName) Then
        Range("A3").CurrentRegion.Clear
        With wb.Worksheets(iName)
         .Range("A3").CurrentRegion.Copy Range("A3")
        End With
      End If
      wb.Close False
    End If
     Application.EnableEvents = True
End Sub

'функция проверки наличия листа в файле, лист есть - true
Function SheetExist(wb As Workbook, iName As String) As Boolean
    On Error Resume Next
    With wb.Worksheets(iName): End With
    SheetExist = (Err = 0)
End Function