A kiemelt bold rész tartalmazza az értéket. Próbáld ki a Mid függvény nélkül is így:

s = ActiveSheet.AutoFilter.Filters(x).Criteria1 

------------------------------------------

Sub Autoszűrő2()
Dim x As Byte
Dim s As String

If ActiveSheet.AutoFilterMode = True Then ' ha a munkalapon az autoszűrő aktív
    For x = 1 To ActiveSheet.AutoFilter.Filters.Count
      If ActiveSheet.AutoFilter.Filters(x).On Then ' itt nézzük meg, hogy aktív-e valamelyik
        s = Mid(ActiveSheet.AutoFilter.Filters(x).Criteria1, 2, Len(ActiveSheet.AutoFilter.Filters(x).Criteria1))
        MsgBox "A(z) " & x & ". szűrő aktiválva, értéke: " & s
      End If
    Next x
  Else: MsgBox "Autoszűrő kikapcsolva"
  End If

End Sub