Hello
I want to update a pivot table when a cell is changed.
Sub Oppdater()
' Oppdate Makro
' Oppdate pivot
'
Private Sub date_Change()
' Oppdate if change
Range("B8").Select
ActiveSheet.PivotTables("Pivottabell1").PivotCache .Refresh
End Sub
--
Jakob
http://www.pointshop.no/austgulen