Norman,
Thanks for the help! It worked great. I know that selecting is slower
and less elegant, I just don't know yet how to do most of the things I
need without selecting! Must admit, I find XL VBA terribly confusing.
Probably because most of my previous programming was in very "old
fashioned" languages long before "objects" were invented. What reading
I did in the early days of OOP said it was supposed to make programming
easier, which I find to be entirely untrue. But then, of course,
computers were supposed to make our lives less complicated, at least
according to some pundits, when they first came along! At my age, I
should be used to being lied to by the "experts"!
What I ended up with is:

Sub Showall1()
Dim Rng1 As Range, Rng2 As Range
Dim lRow As Long, lCol As Long

Set MacRec = ActiveWorkbook.Sheets("Macro Records")

Set Rng1 = Range("B4")


lRow = Rng1.End(xlDown).Row
lCol = Cells(lRow, Columns.Count). _
End(xlToLeft).Offset(, 2).Column


Set Rng2 = Range(Rng1, Cells(lRow, lCol))
Rng2.AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=MacRec.Range("S5:Z6"), Unique:=False

End Sub

I appreciate your giving me a more elegant way to do the same thing.
I'm hoping I'm learning as I go, though some days, I wouldn't swear to
it. But it definitely helps when someone gives better approaches rather
than just correcting my code. Not that I don't appreciate all the help
offered by the experts here.
Thanks!

Norman Jones wrote:
> Hi Dave,
>
> Try something like:
>
> Sub Tester()
> Dim Rng1 As Range, Rng2 As Range
> Dim rw As Long, col As Long
>
> Set Rng1 = Range("B4")
>
> rw = Rng1.End(xlDown).Row
> col = Cells(rw, Columns.Count). _
> End(xlToLeft).Offset(, 2).Column
>
> Set Rng2 = Range(Rng1, Cells(rw, col))
> Rng2.Select '<<<===== Optionally delete (See Below)
>
> End Sub
>
> It is rarely necessary to make selections, so consider deleting the line:
> Rng2.Select
>
> Most of what you might wish to do can be achieved by operating on the
> (Rng2) range object variable.
>
> ---
> Regards,
> Norman
>
>
>
> "davegb" <davegb@safebrowse.com> wrote in message
> news:1119288910.050760.75210@g14g2000cwa.googlegroups.com...
> > This code gives me an invalid qualifier error:
> >
> > Range("B4").Select
> >
> > Range(Selection, Selection.End(xlDown)).Select
> > Range(Selection, Selection.End(xlToRight.Offset(0, 2))).Select
> >
> > I want to select a range starting at B4, ending at the bottom of column
> > B, going to the right until the data ends, and then adding 2 more
> > columns to the range. Can someone point me in the right direction?
> > Thanks!
> >