Seleccionar un nombre creado en formula como origen en tabla dinamica creada en macros

[gabotopuro7]

hola resulta que con este codigo se crea una tabla dinamica en macros

Sub PivotTable()

Dim PTCache As PivotCache

Dim PT As PivotTable


Set PTCache = ActiveWorkbook.PivotCaches.Create _

(SourceType:=xlDatabase, SourceData:=Range("A1").CurrentRegion)


Set PT = ActiveSheet.PivotTables.Add(PivotCache:=PTCache, _

TableDestination:=Range("F1"), TableName:="Ventas")


With PT

    .PivotFields("Zona").Orientation = xlPageField

    .PivotFields("Mes").Orientation = xlColumnField

    .PivotFields("Nombre").Orientation = xlRowField

    .PivotFields("Ventas").Orientation = xlDataField

    .DisplayFieldCaptions = False


End With

End Sub

[/CODE]

y en mi excel cree un nombre llamado "mibase"

como selecciono ese origen en el codigo, entiendo que va en la parte "SourceData:=" pero como lo escribo ahi para llamar a este origen que cree de rango dinámico?

[Gerson Pineda]

Hola

Prueba con algo asi:

SourceData:=Range("mibase")[/CODE]

Saludos