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.