| 
    
     |  | ▼つん さん: 早速ありがとうございます。
 実はその次の行のATPVBAEN.XLA!Histogramがないというエラーがでて
 何度もやってみてるうちに
 エラーがその上のSheets("Histogram").Select
 に移ってしまったんです。
 分析ツールのヒストグラムの作成をマクロで記録したのですが、
 実行するとエラーになってしまうんです。
 記録したときはC:\Program Files\Microsoft Office\Office\Library\Analysis\はなくてATPVBAEN.XLA!Histogramが見つからないというエラーでした。
 Sheets("Histogram").Select
 Application.Run "C:\Program Files\Microsoft Office\Office\Library\Analysis\ATPVBAEN.XLA!Histogram", ActiveSheet.Range("$D$2:$D$301") _
 , ActiveSheet.Range("$A$2"), ActiveSheet.Range("$E$2:$E$5"), False, False, False, False
 
 
 |  |