Combobox5.ListFillRange = "Branch_Name_" & left(Combobox4.Value,3)
ComboBox2.ListFillRange = "Estimator_" & Left(combobox4.Value,3)

would be simpler if you set up your names to correspond.

If you didn't, then you can go ahead and use redundant code.

--
Regards,
Tom Ogilvy



Scot Rundell wrote in message
...
Thanks for the help, but this is what I ended up using....
Select Case ComboBox4.Value
Case "VIC/TAS"
ComboBox5.ListFillRange = "Branch_Name_VIC"
ComboBox2.ListFillRange = "Estimator_VIC"
Case "QLD"
ComboBox5.ListFillRange = "Branch_Name_QLD"
ComboBox2.ListFillRange = "Estimator_QLD"
End Select

Regards,
Scot Rundell



*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!