Hi all,

I've got the following piece of code that automates two autofilters (one in D7, one in D8).

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
Dim Str As String
Set Rng = Range("D11:D118")
Str = Range("D7").Value
If Target.Address = "$D$7" Then
      Rng.AutoFilter Field:=3, Criteria1:="*" & Str & "*", Operator:=xlAnd
End If

Dim Rngx As Range
Dim Strx As String
Set Rngx = Range("R11:R118")
Strx = Range("D8").Value
If Target.Address = "$D$8" Then
      Rng.AutoFilter Field:=17, Criteria1:="*" & Strx & "*", Operator:=xlAnd
End If

End Sub
Now, this was working fine until yesterday when all of sudden, it's stopped working. I've checked security settings and all the jive, and a number of other macros on the sheet still work fine. I've checked the code a number of times, but cannot see what's wrong.

Can anyone suggest what I might try to get this working again?

TIA,

SamuelT