| 
    
     |  | ▼レミ さん: よくはわかりませんが、わかる範囲で。。。(^^;)
 
 >Dim as mytuki1s Range
 >Dim as mytuki1e Range
 
 Dim mytuki1s As Range
 Dim mytuki1e As Range の間違いかな?
 
 でも、日付を入れるなら、
 Dim mytuki1s As Date
 Dim mytuki1e As Date でよいのでは?
 
 したがって
 With Sheet("A")
 mytuki1s = Format(.Range("A1").Value, "yyyy/mm/dd")
 mytuki1e = Format(.Range("A2").Value, "yyyy/mm/dd")
 End With
 とすればよいのでは?
 
 
 >Sheets("B").Select
 オートフィルターをかける範囲は?Sheets("B")のどの範囲?
 
 >  Selection.AutoFilter Field:=6, Criteria1:=">=" & mytuki1s, Operator:=xlAnd, _
 >    Criteria2:="<=" & mytuki1e
 >===============================================================
 >97で上記を実行するとシートAの A1=2005/3/1 A2=2005/3/31
 >が mytuki1s=32631 mytuki1e=20578 となってしまうようです
 >
 >
 
 |  |