Hi All:

I have a workbook with 2 worksheets (PrimaryCare and PCSlicers). PrimaryCare has 4 combo boxes that receive their content from parameterised MicosoftQueries on sheet PCSlicers.

Cell A7 on PrimaryCare contains the most current selection of the 4 combo boxes.

To keep everything in sync I used the following code in Excel 2003:

Private Sub cboxClinic_Change()

End Sub

Private Sub cboxDivision_Change()
 Worksheets("PCSlicers").Range("ClinicInput") = Worksheets("PrimaryCare").OLEObjects("cboxDivision ").Object.Value
 Worksheets("PCSlicers").Range("ClinicInput").Copy Range("A7")

End Sub

Private Sub cboxFacility_Change()
 Worksheets("PCSlicers").Range("DivisionInput") = Worksheets("PrimaryCare").OLEObjects("cboxFacility ").Object.Value
 Worksheets("PrimaryCare").OLEObjects("cboxDivision ").Object.Value = Worksheets("PCSlicers").Range("DivisionInput")
 Worksheets("PCSlicers").Range("DivisionInput").Cop y Range("A7")

End Sub

Private Sub cboxVISN_Change()
 Worksheets("PCSlicers").Range("FacilityInput") = Worksheets("PrimaryCare").OLEObjects("cboxVISN").O bject.Value
 Worksheets("PrimaryCare").OLEObjects("cboxFacility ").Object.Value = Worksheets("PCSlicers").Range("FacilityInput")
 Worksheets("PCSlicers").Range("FacilityInput").Cop y Range("A7")

End Sub

This code does not work in Excel 2007 - gets into a loop.

Can someone suggest an Excel 2007 solution?

Thanks