Updating Pivot Tables with latest data

Hi Guys


I'm trying to automatically update a pivot table by showing the latest source data (without the need to constantly keep selecting it). I have the below but it keeps falling over.

FileYear = Year(Date)
strFileMonth = Format(DateAdd("m", -1, Now), "YYYYMMDD")
FileDate = Format(Date - 1, "dd.mm.yyyy")
RateMonth = Format(Date - 1, "dd.mm.yyyy")

Sheets("PIVOT LDN").Select
ActiveSheet.PivotTables("PivotTable5").PivotSelect "", xlDataAndLabel, True
ActiveSheet.PivotTables("PivotTable5").PivotFields("FSDATE").CurrentPage = _
("ALL")
With ActiveSheet.PivotTables("PivotTable5").PivotFields("FSDATE")
.PivotItems("strFileMonth").Visible = True
End With
End Sub

Any advice on this?

Thanks

Freddie