It needs to be Filters(8).On.
Try this:

Sub ToggleAutoFilter()
If Not Sheet1.AutoFilterMode Then
Sheet1.Range("H1").AutoFilter
End If
If Not Range("H1").Parent.AutoFilter.Filters(8).On Then
Range("H1").AutoFilter Field:=8, Criteria1:="="
Else
Range("H1").AutoFilter Field:=8
End If
End Sub

Mike F

"Dave" wrote in message
...
I'd like to display all of a list -or- only records with blank cells in
the
8th column.
What code could I assign to a button that would toggle an autofilter?
Thank you.