Find Data Within a Shape

i have a workbook with 13 sheets. sheet1 contains a "find button" to search for data entered in cell M19 of the same sheet. sheets 2-13 contain the months of the year; in these sheets there are many shape (rectangles) and each shape has a name within it (12345 Smith, 45678 Jones, etc). i would like a macro which will search for either the number or name in a shape withing the 12 sheets with months of the year which is entered in cell M19 of sheet1. also when the data is found i would like for the sheet where the shape with the found data is located to be anchored at C1 R1.

thanks
Alex

than you for your reply.
i understand the purpose of Excel. I've been using spreadsheets since before Excel existed (VisiCalc). Unfortunately I never bother to learn VBA (my loss).
The reason I'm using shapes is that I'm doing the scheduling for a wood shop and it's similar to a Gantt chart. I did not mean to insult the brilliant minds at Microsoft. After all, even though I'm 61, I still have hopes of Bill Gates adopting me.

you got it. i want row 1 column 1 to always at top left.
when i run the search the Sub FindShape()in the code turns yellow with the message box compile error: expected end sub

yes sir i did. by the way, thank for your time helping me

below is the current code i'm using. it works great if the shape contains within it numbers or text but not both such as (123 smith or 456 Jones)

Sub FindShape()
Dim sht As Worksheet
Dim shp As Shape
For Each sht In ActiveWorkbook.Worksheets
For Each shp In sht.Shapes
If shp.TextFrame.Characters.Text = Worksheets("find").Range("m19").Value Then
sht.Activate
shp.Select
ActiveWindow.ScrollRow = shp.TopLeftCell.Row
ActiveWindow.ScrollColumn = shp.TopLeftCell.Column
Exit Sub
End If
Next shp
Next sht
MsgBox "Sales Order Not Found.", vbInformation
End Sub

If the text in the rectangle has a fixed/constant format, with a "space" for separating, use the 'Split' function to get separated parts of the name, e.g. for mikerickson's code:

Please Login or Register  to view this content.

below is the current code i'm using. it works great if the shape contains within it numbers or text but not both such as (123 smith or 456 Jones)

Sub FindShape()
Dim sht As Worksheet
Dim shp As Shape
For Each sht In ActiveWorkbook.Worksheets
For Each shp In sht.Shapes
If shp.TextFrame.Characters.Text = Worksheets("find").Range("m19").Value Then
sht.Activate
shp.Select
ActiveWindow.ScrollRow = shp.TopLeftCell.Row
ActiveWindow.ScrollColumn = shp.TopLeftCell.Column
Exit Sub
End If
Next shp
Next sht
MsgBox "Sales Order Not Found.", vbInformation
End Sub

Your code:

Please Login or Register  to view this content.

it means more or less:

Please Login or Register  to view this content.

Use, as mikerickson wrote (in 'Sub test()' procedure), some sort of "equalizers" / "levellers":

Please Login or Register  to view this content.

e.g.:

Please Login or Register  to view this content.

Or (maybe) split the texts (TextInShape and TextInCell), using the 'Split' function, into two parts and only then prepare them for comparison.