Private sName$ Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("B1:C10")) Is Nothing Then sName = Application.GetOpenFilename If sName = "False" Then Cells(Target.Row, "B").Value = "" Cells(Target.Row, "C").Value = "" Else Cells(Target.Row, "B").Value = sName ' путь до файла Cells(Target...