Did you dimension x?


Sub Foo()
Dim x as Range

Set x = Range("RangeNameHere")

With x
'Do stuff
end With

Set x = Nothing
End Sub