Hi Corey,

Have a go with the code below.

Best regards

John


Sub FindInAllSheets()
Dim wks As Worksheet
For Each wks In Application.ActiveWorkbook
If wks.Cells(3, 1).Value = "MySearch" Then
MsgBox ("Found")
End If
Next wks
End Sub


"Corey" wrote in message
...
Is it possible to create a find, by macro, to find ALL sheets with a
Cell(A3) value that matches a Msg Box value?
There could be 100 sheets.

Corey....