Boa noite!!
Temalgumas formas de se fazer isso, veja essa..
Use as teclas Alt + F11, para entrar no editor, do lado esquerdo em Plan2 (cole o código na planilha em que está a Tabela Dinâmica).
Option Explicit
Private Sub Worksheet_Activate()
Dim lr As Long
Dim sh As Worksheet
Set sh = Sheets("Plan2")
lr = sh.Range("B" & Rows.Count).End(xlUp).Row
sh.Range("B7:G" & lr).Name = "AleVBA" ' nome do intervalo da Plan2, de B7:G3
ThisWorkbook.RefreshAll
End Sub
Faça o DownLoad de seu exemplo, como código
http://www.sendspace.com/file/xs5qcw
Att
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 19/03/2012 4:33 pm