How about something like:

Option Explicit
Sub testme()

Dim myCol As Long

With ActiveSheet
If Intersect(.AutoFilter.Range, ActiveCell) Is Nothing Then
Beep
Exit Sub
End If
myCol = ActiveCell.Column - .AutoFilter.Range.Column + 1
.AutoFilter.Range.AutoFilter Field:=myCol, Criteria1:="<"
End With

End Sub



pcor wrote:

I currently use the following macro:
Selection.AutoFilter Field:=1, Criteria1:="<"

How can I change thus macro so that the "1"in field would be changed to the
cell that is selected.
(IE how do I capture the cell where the cursor is located when I run this
macro
In visual basic the code would be something like:
d$=celladdress
Field=d$
Thanks

--

Dave Peterson