Using a combo box on multiple pivot tables

I am using a combo box to select data that will update a field on several
pivot tables to keep them synconized. ie one tabel is Month and the other is
Year data. What happened is I have history in the Year data for an item and
no data in the Month data. How can I return data in the Year table and a
message in the Month table that there is no data available?

Here is the code I'm using:

Sub SynchPCK_CAT()
'
' SynchPKG_CAT Macro
' Macro recorded 4/25/2006 by Rick Tipton
'


ActiveSheet.PivotTables("PivotTable5").PivotFields("PKG_CAT").CurrentPage = _
ActiveSheet.Range("D201").Value

ActiveSheet.PivotTables("PivotTable6").PivotFields("PKG_CAT").CurrentPage = _
ActiveSheet.Range("D201").Value

ActiveSheet.PivotTables("PivotTable7").PivotFields("PKG_CAT").CurrentPage = _
ActiveSheet.Range("D201").Value

ActiveSheet.PivotTables("PivotTable8").PivotFields("PKG_CAT").CurrentPage = _
ActiveSheet.Range("D201").Value
RptFormat
HideEmptyRows
End Sub

"norrislaketn" wrote:

> I am using a combo box to select data that will update a field on several
> pivot tables to keep them synconized. ie one tabel is Month and the other is
> Year data. What happened is I have history in the Year data for an item and
> no data in the Month data. How can I return data in the Year table and a
> message in the Month table that there is no data available?