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/