Based on cell value in r2, when prompted, I want to...

if value in r2 = "mon", copy named range "monq" and paste values &
formats in r8.
if value in r2 = "tue", copy named range "tueq" and paste values &
formats in r8.
if value in r2 = "wed", copy named range "wedq" and paste values &
formats in r8.
if value in r2= "thu", copy named range "thuq" and paste values &
formats in r8.
if value in r2 = "fri", copy named range "friq" and paste values &
formats in r8.
if value in r2 = "sat", copy named range "satq" and paste values &
formats in r8.
if value in r2 = "sun", copy named range "sunq" and paste values &
formats in r8.

The ranges reflect a pivot table. I do not want the actual pivot
table, just the data - that's why I want to copy the values and
formats only.

Range( Range("r2").Value & "q" ).Copy
Range("r8").PasteSpecial xlPasteAll
Range("r8").PasteSpecial xlValues



"J.W. Aldridge" wrote:

> Based on cell value in r2, when prompted, I want to...
>
> if value in r2 = "mon", copy named range "monq" and paste values &
> formats in r8.
> if value in r2 = "tue", copy named range "tueq" and paste values &
> formats in r8.
> if value in r2 = "wed", copy named range "wedq" and paste values &
> formats in r8.
> if value in r2= "thu", copy named range "thuq" and paste values &
> formats in r8.
> if value in r2 = "fri", copy named range "friq" and paste values &
> formats in r8.
> if value in r2 = "sat", copy named range "satq" and paste values &
> formats in r8.
> if value in r2 = "sun", copy named range "sunq" and paste values &
> formats in r8.
>
> The ranges reflect a pivot table. I do not want the actual pivot
> table, just the data - that's why I want to copy the values and
> formats only.
>

Thanx....
Worked Purrrrrr-fectly!