don't get a compile error, but i don't know if it works, either


Sheets("Data").Select
Range("L3:U100").Select
Selection.ClearContents
Range("A18:J50000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Range("A2:J4"), CopyToRange:=Range("L3:U100"), Unique:=False
Sheets("Search").Select
End Sub

--


Gary


"Beginner" wrote in message
...
I'm new to Macros and programming. Why am I getting a compile error?

Sheets("Data").Select
Range("L3:U100").Select
Selection.ClearContents
Range("A18:J50000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=
Range ("A2:J4"), CopyToRange:=Range("L3:U100"), Unique:=False
Sheets("Search").Select
End Sub

Any help is greatly appreciated!!