combo box comparison loop
i am working on a workbook with about 80 sheets. in each sheet there are
around 10 combo boxes, one being agency services. I am trying to go through
and see if any other of the sheets contain dissimilar information from the
active sheet's combobox.
the code i have is this:
Sub AgencyServices_Change ()
Dim sht As Worksheet
If AgencyServices.Value like Bob Then
For Each Sht in MyWorkBook.worksheets
Sht.activate
If agencyservices.value = high or agencyservices.value = medium or
Agencyservices.value = low or agencyservices.value = none Then
Msgox You have chosen a different option from the other sheets. Do you want
to continue with this option?, vbquestion
End If
Next sht
End If
End Sub
can any one Please Help Me?
|