thanks guys .. for the immediate help
--
dr chuck
"Crowbar via OfficeKB.com" wrote:
Remove the ""
Dim Ant string
Ant = "h9"
If Range(Ant).Value = "N" Then
Selection.AutoFilter Field:=1, Criteria1:="+"
End If
--
Message posted via http://www.officekb.com