EXCEL VBAコミュのシャッフルのエラー

以下のマクロでエラーとなります
どなたか詳しい方ご教授お願いできませんか？
よろしくお願いします

Sub シャッフル()
Dim count As Integer
count = 1
'データ数取得
data_num = Sheet1.Range("C7").Value
While count < data_num + 1
Sheet2.Cells(count + 1, 4).Value = "=Rand()*" & data_num
count = count + 1
Wend
With Worksheets("単語データ").Sort
.SetRange Range(Cells(2, 1), Cells(data_num + 1, 4))
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
count = 1
While count < data_num + 1
Sheet2.Cells(count + 1, 4).Value = ""
count = count + 1
Wend
End Sub

-------------------------------
With Worksheets("単語データ").Sort
のところで止まります

コメント(4)

最初
全て
最新の40件

[1] mixiユーザー 05月31日 23:00

とりあえず思いつきのエスパー回答です。

Excel2007から追加されたSortオブジェクトを利用する記述になっていますが、
実はExcel2003かそれより古いもので動かそうとしたのではないでしょうか？
その場合、上記のマクロは動作しないでしょうね。
古い流儀(Sortメソッドでの記述)に直せば動くと思います。

想定が外れてたらごめんなさい。

[2] mixiユーザー 05月31日 23:07

コードと止まったところだけの提示では
トピ主さんの状態が見えるわけではないので
環境やSheetの状態、どんなエラーなのかなど
を推測するしかないのですがね・・・

[3] mixiユーザー 06月01日 00:21

データが無いと検証も出来ないな。
お疲れ

[4] mixiユーザー 06月04日 06:31

そのとおりですね　みなさん失礼しました

ログインすると、みんなのコメントがもっと見れるよ