エクセル２０００マクロエラーについて

下記のマクロをエクセル９５で動かすと正常に終わるのですが、エクセル２０００で
動かすとデバッグエラーで止まります。
何処がおかしいのでしょうか教えてください。
出来れば言語の意味も教えてください。

Sub 送信メニュ()
Dim i, C_COUNT, folda, work, tuki
i = MsgBox("加工業者別の発注基礎資料を作成します。", 1, "着色加工計画作成システム")
If i <> 1 Then Exit Sub
Sheets("msg2").Select
Call gafalse
folda = "C:\aa着色加工計画\"
tuki = Sheets("ACT").Cells(5, 12).Text→最初にここでデバッグエラーになります。
tuki = Val(Right(tuki, 2))
If tuki = 12 Then
tuki = 1
Else
tuki = tuki + 1
End If
tuki = Format(Str(tuki), "00")
Workbooks.Add
F_NAME = "加計" + tuki + "月.XLS"
ActiveWorkbook.SaveAs Filename:=folda + F_NAME, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

Windows("加工品.xls").Activate
Sheets("masta").Select
C_COUNT = Sheets("masta").Cells(2, 3).Text

For count = 1 To C_COUNT 'C_COUNT
Windows("加工品.xls").Activate
Sheets("masta").Select
Cells(3, 5) = count
i = count
M_KAKOBA(count) = "sheet" + i
Call 送信
Next count
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:=folda + F_NAME, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close

End Sub

No.1 ベストアンサー 回答者： kirara_pika 回答日時： 2002/02/13 01:02

意味はともあれ、何というエラーメッセージが表示されたのか、書いてください。

この回答への補足

tuki = Sheets("ACT").Cells(5, 12).Text
最初にここのところで下記のエラーがでます。

実行時エラー'9':
インデックスが有効範囲にありません。

補足日時：2002/02/13 08:09

No.2 回答者： kirara_pika 回答日時： 2002/02/13 15:07

マクロを実行したとき、そのブックに「ＡＣＴ」というシート名のワークシートはありますか？

そのエラーは主に配列を使用したときに出るんですが、
例えば、配列で最初10までの定義をしてないのに、11番目の配列に代入しようとするときに出ます。
定義していない（存在しない）ものに代入したり、変数に存在しない値を代入したりとかはしてないですか？

この回答へのお礼

確認してみます。ありがとうございました。

お礼日時：2002/02/16 08:43