write selected range to variable and then write the range saved in variable in to a cell

[ExcelBobb]

Hi everybody,

How can I write the saved cell range of a variable in a cell?
For example:

Dim rng As Range 'this works fine

Set rng = Selection 'this works fine

Range("O1").Value = rng 'this does not work, the cell is still blank after that


Also if I use a msgBox to see if the range is getting stored in my rng var, its shown.
So it seems to be an issue with the last line, is it even possible to write a range var in to a cell?

I somehow need a solution to save the range of already selected cells in a worksheet to a variable.
Then I want to write the content of the variable (for example: A1:B5) in to a cell in the same worksheet.
Background: I want to use the cell range later on for a range selection, so after the steps above, I want to save the cell range(example: A1:B5) again in a var to use for selection.
The problem is that, the workbook is getting closed in between saving and using the content of variable, so because of that I want to go for this workaround.

[bakerman2]

How about this.

Dim rng As Range 'this works fine

Set rng = Selection 'this works fine

Range("O1").Resize(rng.Rows.Count, rng.Columns.Count).Value = rng.Value

[nigelog]

edit; posted in error

[bakerman2]

On second thought, if it's the address of the selection you're after.

Range("O1").Value = rng.Address

[ExcelBobb]

On second thought, if it's the address of the selection you're after.

Range("O1").Value = rng.Address

Thats it, it worked!

Thank you

[bakerman2]

You're welcome and thanks for rep+.

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED.

Also, as a relatively new member of the forum, you may not be aware that you can thank those who have helped you by clicking the small star icon located in the lower left corner of the post in which the help was given. By doing so you can add to the reputation(s) of those who helped.