Assuming all the values to check are in C2 of each sheet, the last sheet name is something specific like "Database", and found items copy back to cell C24 of each sheet, something like this would do it:
Option Explicit
Sub UpdateFromDatabase()
Dim wsDB As Worksheet, ws As Worksheet
Dim vFIND As Range
Set wsDB = Sheets("Database")
On Error Resume Next
For Each ws In Worksheets
If ws.Name <> wsDB.Name Then
Set vFIND = wsDB.Range("B:B").Find(ws.Range("C2").Value, LookIn:=xlValues, LookAt:=xlWhole) 'xlPart for partial matches
If Not vFIND Is Nothing Then
ws.Range("C24").Value = wsDB.Range("C" & vFIND.Row).Value
Set vFIND = Nothing
End If
End If
Next ws
End Sub
Bookmarks