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