Searching for value within a sheet's name

[cbh35711]

So I've got it working, but it's pretty crappy. I get the sheet's name and put it in a cell, then search that cell.

Range("Z52").Value = Range("A1").Parent.Name
Set find_criteria = Range("Z52").Cells.Find(What:="Part", LookIn:=xlValues)
Range("Z52").Value = ""

I'd like to have it search either the result of Range("A1").Parent.Name, or perhaps a variable i save it into. When I tried both ways I couldn't get the syntax to work correctly.

Thanks for your help,


Chris