I have the following programming attempting to use the variable CBOX as my
Criteria1 in an autofilter. I get a syntax error on the autofilter line when
i run it. The line works fine if I use "=" as opposed to the "<" which i
want. I am attempting to filter away the variable in CBOX.

========================
Private Sub CheckBox3_Click()
Dim cbox As String
Let cbox = CheckBox3.Caption

If CheckBox3 = False Then
Selection.AutoFilter Field:=40, Criteria1:<cbox

Else
Selection.AutoFilter Field:=40
End If

End Sub

========================
thanks,
dr chuck

there is a difference between the < operator and the assignment operator
for an argument. You can't do :<


Selection.AutoFilter Field:=40, Criteria1:="<"&cbox


--
Regards,
Tom Ogilvy




"dr chuck" wrote in message
...
I have the following programming attempting to use the variable CBOX as my
Criteria1 in an autofilter. I get a syntax error on the autofilter line
when
i run it. The line works fine if I use "=" as opposed to the "<" which i
want. I am attempting to filter away the variable in CBOX.

========================
Private Sub CheckBox3_Click()
Dim cbox As String
Let cbox = CheckBox3.Caption

If CheckBox3 = False Then
Selection.AutoFilter Field:=40, Criteria1:<cbox

Else
Selection.AutoFilter Field:=40
End If

End Sub

========================
thanks,
dr chuck

Thanks Tom,
You always supply a wealth of information.
--
dr chuck


"Tom Ogilvy" wrote:

there is a difference between the < operator and the assignment operator
for an argument. You can't do :<


Selection.AutoFilter Field:=40, Criteria1:="<"&cbox


--
Regards,
Tom Ogilvy




"dr chuck" wrote in message
...
I have the following programming attempting to use the variable CBOX as my
Criteria1 in an autofilter. I get a syntax error on the autofilter line
when
i run it. The line works fine if I use "=" as opposed to the "<" which i
want. I am attempting to filter away the variable in CBOX.

========================
Private Sub CheckBox3_Click()
Dim cbox As String
Let cbox = CheckBox3.Caption

If CheckBox3 = False Then
Selection.AutoFilter Field:=40, Criteria1:<cbox

Else
Selection.AutoFilter Field:=40
End If

End Sub

========================
thanks,
dr chuck