With Worksheets("sheet1")
if ComboboxCountry.Value < "" Then
Selection.AutoFilter Field:=1, Criteria1:=Combocountry.Value
Else
if .AutofilterMode then
.ShowAll
End if
End With

--
Regards,
Tom Ogilvy


"DB100 " wrote in message
...
Hi Tom

Just to say thanks a grat deal...this has really helped.

Just one last thing if I may, the code works perfectly as long as there
is something selected in the combobox. If it is left blank ( to show all
) it errors.

Can you help
Thanks


---
Message posted from http://www.ExcelForum.com/