One way:

str = rng.Parent.Name & "!" & rng.Address(True, True, False, False)


In article ,
"Robert Stober" wrote:

Hi,

I've got a range object that I want to convert to a string so I can use in
the PivotTableWizard method:

Dim rng As Range
set rng = Sheets("sales").Range("A1").CurrentRegion

I want to convert rng into a string like this:

"sales!R1C1:R796C6"

Any help you can provide will be greatly appreciated.

Robert Stober