VBA ByRef引数の型が一致しません

Question

お疲れ様です。pipiでございます。

検索用プロージャーを作って呼び出そうとしていますが、実行すると、『ByRef引数の型が一致しません』と出てしまいます。

関数の引数は、ちゃんとRange型にしてるのに・・・

どなたかご教授願います。

Public Sub Test()
Worksheets("請求書抽出").Select
    Range("A2:O2").ClearContents
    Range("N2").Value = "<>1"
    Range("B2").Value = ">=" & StartDate
    Range(O2).Value = "<=" & EndDate

    Dim DateRange As Range, Criteria As Range, CopyTo As Range
    Dim BlnUnique As Boolean

    Set DataRange = Worksheets("売上明細").Range("A1")
    Set Criteria = Range("A1:O2")
    Set CopyTo = Range("B10:D10")
    BlnUnique = True

`検索用プロージャー(MyAdvancedFilter)呼出し
    MyAdvancedFilter DataRange, Criteria, CopyTo, BlnUnique `DataRangeでByRef引数の型が一致しませんとなってしまう。。。

End Sub

データー検索用プロージャー

Public Sub MyAdvancedFilter(DataRange As Range, _
                            Criteria As Range, _
                            CopyTo As Range, _
                            BlnUnique As Boolean)
    DataRange.CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Criteria, CopyToRange:=CopyTo, unique:=unique
End Sub

Answer 1

【訂正】
Excel 2003でこんなコードを試したところ、通りました。

Private Sub CommandButton1_Click()
    Dim r As Range
    
    Set r = ActiveSheet.Range("A1")
    Call s(r)
End Sub

Public Sub s(r As Range)
    r.Interior.Pattern = 2
End Sub

Range型じゃない別のオブジェクトを渡していたりしていませんか？
最も単純化させたコードを起こし直して、比較してみてはいかがでしょうか。

Comments

[退会済みユーザー]

Public Sub MyAdvancedFilter(ByRef DataRange As Range, _
ByRef Criteria As Range, _
ByRef CopyTo As Range, _
ByRef BlnUnique As Boolean)
DataRange.CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Criteria, CopyToRange:=CopyTo, unique:=unique
End Sub

と記載して実行してみましたが、結果は、ByRef引数の型が一致しませんと表示されてしまいます。

宣言で何も記載しないと自動的にByRefになるはずなのですが・・・・

[退会済みユーザー]

最も単純な例を作って、Range型でも引き渡すことが出来たので、他の可能性がないか調べてみてはいかがでしょうか。Range型が適切に初期化されていないとか。

[退会済みユーザー]

変数の名前が間違っていました!!
単純なミスでした。。。。