Please put your code in code tags. Edit your post, highlight the code, then press the # button in the text editor's toolbar.
Anyway, the error is because Range(i) is not a range. You'd need something like
Also, you don't want to set i = LR before you loop. If you did that, you'd only go through your Do loop once. You can either move that to before the Else, or just remove that and put an Exit Do before the Else.
Edit: By the way, here is a MUCH faster approach than iterating through every cell, especally if your search result is hundreds of rows or more down the sheet:
Bookmarks