Run time Error 1004 Method 'Range' object '_Worksheet 'failed

I am getting an error as Run time Error 1004 Method 'Range' object '_Worksheet 'failed. please help below is my code

Please Login or Register  to view this content.

Hi,

Untested but perhaps

Set rSearch = Sheet1.Range("g2:" & Range("g65536").End(xlUp).Address)
or
Set rSearch = Range(Sheet1.Range("g2"), Sheet1.Range("g65536").End(xlUp))