Excel2007のマクロでエラーが発生

質問

初心者です。Excel2007で住所録を作り、特定の条件の人だけ抽出しようと考え、以下のマクロを実行すると、「オブジェクトが見つかりません」というエラーが表示されてしまいます。どう修正したら良いのでしょうか？
Sub Adfilter10()
Dim dRng As Range, eRng As Range, cRng As Range
Set dRng = Worksheets("入力用").Range("A1").CurrentRegion 'データリスト
Set dRng = Worksheets("入力用").Range("M1:M2") '条件範囲
Set eRng = Worksheets("印刷用").Range("A1") '抽出先
eRng.CurrentRegion.ClearContents
dRnge.AdvancedFilter_
Action:=xlFilterCopy, _
CriteriaRange:=cRng, _
CopyToRange:=eRng, _
Unique:=False
End Sub

回答No.1

n_na_tto

Set dRng = Worksheets("入力用").Range("M1:M2")
↓
Set cRng = Worksheets("入力用").Range("M1:M2")

お礼

ありがとうございました。単純ミスでした。