Defining range for Advanced Filter

I'm having a difficult time on the range definition for and andvanced
filter callout, below is my code todate. The issue occurs on the Set
oRange line, as I step through the macro it appear to highlight the
appropriate cells but I get a "Run time Error #424 Object required",
can anyone help me out.

Sub Macro2()
'
' Macro2 Macro
' Macro recorded 2/9/2006 by jreid
'

'
Dim oRange As Object

Range("AJ3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("DT3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

Range("M3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("DU3").Select
ActiveSheet.Paste
Range("DT3").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("DT3"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
Range("DT3").Select
Cells.Find(What:="1X", After:=ActiveCell, LookIn:=xlFormulas,
LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False _
, SearchFormat:=False).Activate
ActiveCell.Offset(0, 1).Select

Set oRange = ActiveSheet.Range(Selection,
Selection.End(xlDown)).Select
oRange.AdvancedFilter Action:=xlFilterCopy, CopyToRange:= _
Range("DW3"), Unique:=True

Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Sheet1").Select
Range("B1").Select
ActiveSheet.Paste
Range("A1").Select
End Sub

Hi Burl,

Try changing:

> Set oRange = ActiveSheet.Range(Selection,
> Selection.End(xlDown)).Select

to:

Set oRange = ActiveSheet.Range _
(Selection, Selection.End(xlDown))

---
Regards,
Norman



"burl_rfc" <[email protected]> wrote in message
news:[email protected]...
> I'm having a difficult time on the range definition for and andvanced
> filter callout, below is my code todate. The issue occurs on the Set
> oRange line, as I step through the macro it appear to highlight the
> appropriate cells but I get a "Run time Error #424 Object required",
> can anyone help me out.
>
> Sub Macro2()
> '
> ' Macro2 Macro
> ' Macro recorded 2/9/2006 by jreid
> '
>
> '
> Dim oRange As Object
>
> Range("AJ3").Select
> Range(Selection, Selection.End(xlDown)).Select
> Selection.Copy
> Range("DT3").Select
> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
> SkipBlanks _
> :=False, Transpose:=False
>
> Range("M3").Select
> Range(Selection, Selection.End(xlDown)).Select
> Selection.Copy
> Range("DU3").Select
> ActiveSheet.Paste
> Range("DT3").Select
> Range(Selection, Selection.End(xlToRight)).Select
> Range(Selection, Selection.End(xlDown)).Select
> Selection.Sort Key1:=Range("DT3"), Order1:=xlAscending,
> Header:=xlGuess, _
> OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
> DataOption1:=xlSortTextAsNumbers
> Range("DT3").Select
> Cells.Find(What:="1X", After:=ActiveCell, LookIn:=xlFormulas,
> LookAt:= _
> xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
> MatchCase:=False _
> , SearchFormat:=False).Activate
> ActiveCell.Offset(0, 1).Select
>
> Set oRange = ActiveSheet.Range(Selection,
> Selection.End(xlDown)).Select
> oRange.AdvancedFilter Action:=xlFilterCopy, CopyToRange:= _
> Range("DW3"), Unique:=True
>
> Range(Selection, Selection.End(xlDown)).Select
> Selection.Copy
> Sheets("Sheet1").Select
> Range("B1").Select
> ActiveSheet.Paste
> Range("A1").Select
> End Sub
>

Norm,

The solution worked great, I thank you greatly for helping out, this
has been stumping me for a few days

Again many thanks.

But why is VBA so citical with the syntax, what did the underscore
actually accomplish here (just to give me a beeter understanding).

burl

Hi Burl,

> But why is VBA so citical with the syntax, what did the underscore
> actually accomplish here (just to give me a beeter understanding).


See my adjacent response - I inadvertently responded to the wrong strand of
this thread!


---
Regards,
Norman



"burl_rfc" <[email protected]> wrote in message
news:[email protected]...
> Norm,
>
> The solution worked great, I thank you greatly for helping out, this
> has been stumping me for a few days
>
> Again many thanks.
>
>
> burl
>

Hi, Burl,

The underscore is merely cosmtic - it serves to break long lines of code.

The real difference was the deletion of your Select.


---
Regards,
Norman


"Norman Jones" <[email protected]> wrote in message
news:[email protected]...
> Hi Burl,
>
> Try changing:
>
>> Set oRange = ActiveSheet.Range(Selection,
>> Selection.End(xlDown)).Select
>
> to:
>
> Set oRange = ActiveSheet.Range _
> (Selection, Selection.End(xlDown))
>
> ---
> Regards,
> Norman
>