Macro to Refresh a Pivot Table existed at a Dynamic Active Cell
'A Simple macro to refresh a Pivot Table whose name not know in advance , by Dynamically based on Active Cell
Sub Pvt_Refresh()
ActiveSheet.Range("I4").Select
Pivot_Name = Selection.PivotTable.Name
ActiveSheet.PivotTables(Pivot_Name).PivotCache.Refresh
'ActiveWorkbook.RefreshAll [ To Refresh all Pivots Data in a WorkBook ]
End Sub
Thanks.,TAMATAM
'A Simple macro to refresh a Pivot Table whose name not know in advance , by Dynamically based on Active Cell
Sub Pvt_Refresh()
ActiveSheet.Range("I4").Select
Pivot_Name = Selection.PivotTable.Name
ActiveSheet.PivotTables(Pivot_Name).PivotCache.Refresh
'ActiveWorkbook.RefreshAll [ To Refresh all Pivots Data in a WorkBook ]
End Sub
Thanks.,TAMATAM