View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Justin Justin is offline
external usenet poster
 
Posts: 82
Default 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?