Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    If Target.Row = 1 And Target.Column > 2 Then
        Cancel = True 'close cell
        Debug.Print "ïîäñòàíîâêà"
        'Debug.Print Target.Column
        Call AutoWork(Target.Column)
    End If
End Sub
Sub AutoWork(Column)
    Application.ScreenUpdating = False
    Dim iColl As Long
    Dim iArr As Variant
    Dim iRow As Integer
    Dim iSh As Integer
    Dim iName As String

    For iSh = 2 To Sheets.Count
        For iRow = 2 To 32
            Sheets(iSh).Activate
            iName = Sheets("Реестр").Cells(iRow, "B")
            Debug.Print iName
            If Not Range(iName) Is Nothing Then
                Debug.Print "Нашли"
                Range(iName) = Sheets("Реестр").Cells(iRow, Column)
            Else
                Debug.Print "Не нашли"
            End If
        Next iRow
    Next iSh
    Application.ScreenUpdating = True
End Sub