What am I missing here?

[Nick Smith]

Using the following code

Dim RngDate As Range
Set RngDate = ThisWorkbook.Worksheets("Summary Report").Range("A" & i)
ThisWorkbook.Worksheets("Summary Report").Range(RngDate).Select

Fails at line 3 with the following error:

Application Defined or object defined error.

Can anyone help me please?

Thanks.

Nick