Cells.Find not working with multiple workbooks

I'm kind of a novice with VBA, and I'm having an issue with performing a "find" function on multiple workbooks. The goal of the macro is to look in each open workbook for the text "Trains and Planes" which will always be in column A and then clear the contents of that row and all rows below it. I salvaged most of this code from something I found on the internet. When I run it, it says "Run time error 91, Object variable or with block variable not set" and it highlights the lines Cells.Find through False).Activate in the debugger. I understand that this means it can't find the text, but I'm not sure why. If it makes any difference, this is in Personal.xlsb. Here's the code I have now:

Please Login or Register  to view this content.

Any help would be greatly appreciated!

Hi, xladept!

Individually, each sheet works fine.

Hi, Holger!

I ran it, but it only modified the first workbook and never touched the second one. I think it actually might've repeated itself again on the first sheet instead.

Hi Holger,

They were both open at the same time.

Thanks,

DGFA