VBA オートフィルター空白セル非表示

Question

#コード
コードにて実行しようとしているのは、オートフィルターにて、空白セルを非表示にし、さらに、targetで指定した文字列のみ表示する
という処理を実行したいのですが…
このコードを実行すると、フィルター範囲が1行も表示されない状態になってしまいます。

  Range("$A$5:$G$2310").AutoFilter Field:=7, Criteria1:=target, _
  Operator:=xlFilterValues

このコードを実行すると、空白行が表示されないみたいですが…表示されてしまいます。

ファイル形式はxlsです。
なお、targetは文字列型配列です。

Answer 1

配列の添え字エラーでした

Comments

[hatena19]

質問文が知らない間に修正されている。
質問は、1行も表示されない or　空白行が表示されてしまう、？？
解決は、配列の添字エラー、意味がわからない？？

Answer 2

配列の添え字エラーでした

Answer 3

Target というのはSrring型の変数で文字列が入っているのでしょうか。
だとしたら、

空白セルを非表示にし、さらに、targetで指定した文字列のみ表示する

ということは、条件は「targetで指定した文字列のみ表示する」でいいですよね。

Range("$A$5:$G$2310").AutoFilter Field:=7, Criteria1:=Target

Operator:=xlFilterValues は複数の値が格納されている配列をCriteria1に設定するときに指定します。
Target が配列の変数ならば、

Range("$A$5:$G$2310").AutoFilter Field:=7, Criteria1:=Target, Operator:=xlFilterValues

追記

下記のマクロの実行前と実行後を画像で提示します。

Sub Macro1()
    Dim Target As String

    Target = "bb"
    Range("$A$5:$G$2310").AutoFilter Field:=7, Criteria1:=Target
End Sub

実行前

実行後

空白セルの行は非表示になります。

このように実際のコードと、実行前、実行後の画像を提示してもらえますか。

Comments

[Yoshikun_0945]

ご回答ありがとうございます
回答してくださったコードを実行すると空白セルも表示されてしまいます

[hatena19]

このコードで、7列目が空白セルの行は表示されません。

７列目以外に空白セルがある場合も非表示にしたいということですか。

[Yoshikun_0945]

7列目で判断し、7列目が空白になっている行を非表示にして、targetで指定した文字列の行だけ表示したいのですが、ご回答いただいた下のコードで実行すると空白行・targetで指定した文字列の行が表示されてしまいます。
７列目以外に空白があっても７列目の条件にて表示・非表示を決定します。
xls形式のファイルに対してフィルターをかけようとしています。

[hatena19]

回答に追記しましたので御覧ください。

[Yoshikun_0945]

大変申し訳ございませんが、社外秘文章を扱っているため、画像化できません。
他の文章で検証いたしましたところ正しく作動致したため、私が実行しようとしている文書側に問題があるものと思われます。

[hatena19]

社外秘文書そのままでなく、
症状を再現できるデータ、条件を探すというのは、
このような想定外の問題が出るときの解決のためにとる手段です。
Target にどのような文字列を設定した時症状がでますか。