Pivottable Macro (output)

[mhenk]

Hey folks. Right now, I have a pivottable, 7 items in the data field, 8 in the page section, and 1 in the row section.

I would like to create a series of check boxes, one for each of the 7 items in the data field, and a button, that, when pressed, will copy and paste the values from the corresponding columns of the pivottable to a new worksheet, along with the values of the row section. Has anyone ever done something like this before? Anything that can point me in the right direction? ANything I can answer to clear it up?

TIA!

 

[mhenk]

If chkEPR.Value = True Then
    Range("A11:A2000").Select
    Selection.Copy
Reup:
    Sheets("Output").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Selection.Clear
    Sheets("FIPS PT").Select
    Range("G11:G2000").Select
    Selection.Copy
    Sheets("Output").Select
    Range("G1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End If
Exit Sub

I'm getting an error message at the line Range("G1").Select.

Can someone explain why? Select Method of Range class failed.[/quote]

 

[mhenk]

NM Situation under control, thanks!