With Worksheets("Sheet1")
.Activate
.Range("A1"). _
currentRegion.AutoFilter Field:=4, _
Criteria1:=Userform1.Listbox1.Value
With.autofilter.Range
.offset(1,0).Resize(.Rows.count-1). _
specialcells(xlVisible).Select
End With
End With


--
Regards,
Tom Ogilvy



Randal W. Hozeski wrote in message
...
I think my AutoFilter question was misunderstood.
It is to AutoFilter whatever is selected from
a single select ListBox (the result) not copy it.

-Randy-





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