G
Guest
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?
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?