Perhaps just another way...

Sub Demo()
With ActiveSheet.AutoFilter
Intersect(.Range, .Range.Offset(1, 0),
[B:D]).SpecialCells(xlVisible).Select
End With
End Sub

--
Dana DeLouis
Using Windows XP & Office XP
= = = = = = = = = = = = = = = = =


"Randal W. Hozeski" wrote in message
news:cItHb.498285$275.1405392@attbi_s53...
I have code that runs an AutoFilter, on a six column
dataset in column A thru F. I use the following code
to try select a part of the result.

With .AutoFilter.Range
.Offset(0, 1).Resize(.Rows.Count - 0). _
SpecialCells(xlVisible).Select
End With

This will start the select in Column B but then runs it
out thru column G (a blank)

Question: Is there a way to just select column B,C, & D?
Thanks. -Randy-

.