Set Summary = Worksheets(Range("B3"))

or

Set Summary = Worksheets(worksheets("Sheet_name").Range("B3"))


Mangesh