Const xLen = 154
Const yTitle = 4
Const stName = "Журнал регистрации"

Sub test()
    'Dim stSheet As Sheet
    '
    y0 = ActiveCell.Row
    x0 = ActiveCell.Column
    'Set stSheet = ThisWorkbook.Sheets("Журнал регистрации")
    '
    ar = Application.Transpose(Application.Transpose(Range(Cells(yTitle, 1), Cells(yTitle, 154))))
    For Each x In ThisWorkbook.Worksheets
        If Left(x.Name, 5) = "Форма" Then
            For i = 1 To 100
                For j = 1 To 150
                    s = x.Cells(j, i).Value
                    If Left(s, 1) = "[" Then
                        s2 = Trim(Mid(s, 2, Len(s) - 2))
                        'x.Cells(j, i).Value = ar(Mid(x.Cells(j, i).Value, 2, Len(x.Cells(j, i).Value) - 1))
                        k = 1
                        While (Trim(ar(k)) <> s2) And (k < xLen)
                            k = k + 1
                        Wend
                        MsgBox k
                        sF = ThisWorkbook.Sheets(stName).Cells(y0, k).Value
                        x.Cells(j, i).Value = sF
                    End If
                Next
            Next
        End If
    Next x
    '
End Sub