Why is this code creating a new page?

[TyeJae]

For some reason the following code creates a blank page everytime. Is there a way to have it not do this that I am not seeing?

    Sheets("currentweek").Select
    Range("A1").Select
    ActiveCell.CurrentRegion.Select
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        Selection).CreatePivotTable TableDestination:="", TableName:= _
        "PivotTable6", DefaultVersion:=xlPivotTableVersion10
    ActiveSheet.PivotTableWizard TableDestination:=Sheets("PIVOT").Range("A1")

Thanks in advance...

[Andy Pope]

It's the CreatePivotTable part. without details I assume the default is new sheet.

Perhaps all you meant to do was create the cache

    ActiveWorkbook.PivotCaches.Add SourceType:=xlDatabase, SourceData:=Selection

[TyeJae]

Thanks Andy.