I would like to make this procedure more flexible by using relative
references
rather than absolute cell references. The first version works
perfectly but I can't get the second version to work. It always
results in all lines disappearing. I know this may be difficult to
resolve without seeing the sheet it is used on but perhaps there is
just a basic coding error. Thanks in advance
for any help.

Public Sub LedgerView()
'
Range("A5").Select
Range("A6:G260").AdvancedFilter _
Action:=xlFilterInPlace, CriteriaRange:=Range("B1:D3"),
Unique:=False
Range("A5").Select

' Range("A6").Select
' Range(Selection, Selection).CurrentRegion.Select
' Selection.AdvancedFilter _
' Action:=xlFilterInPlace, CriteriaRange:=Range("B1:D3"),
Unique:=False
' Range("A5").Select

End Sub