Private Sub CommandButton2_Click()
'
Dim Sh As Worksheet
Dim Cel As Range
'
For Each Sh In ActiveWorkbook.Worksheets
If Sh.Name <> ActiveSheet.Name Then
Set Cel = Range("A:A").Find(what:=Sh.Range("B2"), LookIn:=xlValues)
If Not Cel Is Nothing Then
Sh.Range("C3").Value = Cells(Cel.Row, 3).Text
End If
End If
Next Sh
End Sub