EXCEL2003のVBAで AutoFilter で 「名前付き引数

質問

EXCEL2003のVBAで　AutoFilter　で　「名前付き引数が見つかりません」

のエラーが出ます。解決方法をご教示下さい。

Private Sub CommandButton14_Click()
Dim myStr
Workbooks("***.xls").Activate
myStr = Sheet1.Range("F9").Value
Range("F2:F17").AutoFilter Field:=1, Criterial:=myStr
End Sub

回答No.1

hana-hana3 · ベストアンサー

タイプミスですね。
Criterial:=myStr
を
Criteria1:=myStr
にしてください。
[Criteria1]の末尾はｌ（Ｌ小文字）ではなくて、１（数字）です。

あと、書き方として不適切な部分ですが・・・（なぜか動いている:excel2007）
＞myStr = Sheet1.Range("F9").Value

のsheet1の部分はどうなっているのでしょうか？

Dim Sheet1 As Worksheet
Set Sheet1 = Worksheets("Sheet1")
のようにsetコマンドで指定してあれば有効ですが、そうでないなら正しくシートとして指定した方が良いでしょう。

myStr = Sheets("Sheet1").Range("F9").Value
myStr = Sheets(1).Range("F9").Value

お礼

早速、ご親切なご教示有難うございました。
良く解りました。　マニュアルを読み違えておりました。