Indexing a activecell to a range

I'm indexing Activecell to a range and selecting it with the indexed name.
Range ("rng").select is not working. Why?

Sub indexing()

Dim rng As Range

Set rng = ActiveCell

ActiveCell.Offset(2, 1).Select

Range("rng").Select

End Sub