エクセル２０００マクロエラー

質問

下記のマクロを実行すると、Sheets(M_KAKOBA(count)).Selectのロジックでインデック
スが有効範囲にありません。というエラーメッセージがでます。
エクセルのツール→オプション→全般→新しいシートの数を2から3に変更すると
エラーは発生しないのですが、エクセルのツール→オプション→全般→新しいシートの数を2
のままでエラーを出さないようにするには、ロジックを変更すればできるのでしょうか？
ロジックの追加方法を教えてください。

Sub 送信()
'変数の設定
Dim work, hensu, i, j

Windows("加工品.xls").Activate

work = Sheets("masta").Cells(3, 6).Text

'シート名の変更

Windows(F_NAME).Activate

Sheets(M_KAKOBA(count)).Select
ActiveSheet.Name = work
Windows("加工品.xls").Activate
Sheets(work).Select
i = 5
Do
i = i + 1
hensu = Cells(i, 5)
Loop While hensu <> ""
Range(Cells(1, 1), Cells(i + 1, 33)).Select
Selection.Copy
Windows(F_NAME).Activate
Sheets(work).Select
Range("a1").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A2").Select

End With
Selection.BorderAround Weight:=xlThin, ColorIndex:=xlAutomatic
'
'行の高さ

If Worksheets(work).AutoFilterMode = False Then
Range(Cells(5, 1), Cells(i + 1, 31)).Select
Selection.AutoFilter
End If

End Sub

回答No.2

papayuka · ベストアンサー

既に回答がある通りこのマクロ単独では動かないです。
End Withに対応するWithも無いし。

少なくとも F_NAME、M_KAKOBA、count に事前に値をセットしているマクロがあるハズですのでそれらも提示された方が良いでしょう。

あと、

i = 5
Do
　i = i + 1
　hensu = Cells(i, 5)
Loop While hensu <> ""

の部分は多分下記の1行で代用出来ます。

i = Cells(5,5).End(xlDown).Row + 1

回答No.1

wakap

これだけではちょっとわからないのですが
デバックで、エラーが出る前に、M_KAKOBA(count)の内容とcountの内容を確認して下さい。
多分ありえないシート（番号）を指定していると思います（可能性としては２または３）。
M_KAKOBA(count)にデータを設定している所、またはcountにデータを設定している所の修正が必要かも、と思います