VBA .Find Function resulting in error message

Hello,
I have the following code that looks for a week number in the format of "Week n" and then moves to the correct cell;

Please Login or Register  to view this content.

However, when it gets to the code;

Please Login or Register  to view this content.

I get the error message "Run-time error '438': Object doesn't support this property or method".

Unfortunetly I cannot unload the document which doesn't make this easy for you.
I have taken a screen shot and attached which will hopefully help you.
When I open the workbook, the VBA script searches for the current week and then moves to the cell directly under the 'Start' heading.

Thanks for the advice so far... I have changed the code slightly, I now have;

Please Login or Register  to view this content.

If I run through this code using 'F8', I get to the line

Please Login or Register  to view this content.

and I get the same error as mentioned above "Run-time error '438': Object doesn't support this property or method" but if I then run through it a second time it works fine, this pattern continues. It's weird and I can't work it out.

rorya,
This is my entire code for the wrokbook. It only has the one worksheet within it;

Please Login or Register  to view this content.

Thanks for all the help but I have now resoved the error using the code that sintek provided. Thanks again:-D