Can't find type mismatch

I am trying to run the following code but I keep getting the error "Run-time error 91: Object variable or With block variable not set"

Please Login or Register  to view this content.

(I highlighted in brown the portion of the code that gets highlighted when I enter debugging mode)

I have tried to introduce workingRange as

Please Login or Register  to view this content.

and then removing the Range functions from workingRange in the rest of the code, but then I get other errors. What confuses me the most is that before I saved and closed the workbook that contains this macro, I ran the macro once successfully, so I find it strange that this error would only appear now?

I hope someone can see what is wrong with this code?

you will encounter that error if the value 1 is not found in the range you specify

you're welcome :-)

please don't forget to mark the thread solved (click the 'thread tools' link at the top, then 'mark solved')