[RESOLVED] How can I make find properties from workbook to another workbooks?

[nader]

this code is to find Anyword in any worksheets in the workbook
How can I make frind from workbook to another workbooks?...by the way I'm using mS 2007

Dim wsh As Worksheet
For Each wsh In Workbook
wsh.Cells.Find(What:="Anyword").Activate
Next