copy named range & paste

[J.W. Aldridge]

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.

 

[Patrick Molloy]

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

 

[J.W. Aldridge]

Thanx....
Worked Purrrrrr-fectly!