#02です
エラーが出た行は
　IntRND = Int(MumMAX * Rnd) + 1
にしてみてください

＃０２です。お手数をかけます
私の環境　Ｘｐ＋ＥＸＣＥＬ２００３では動作したのですが。

恐れ入りますがどのようなエラーメッセージが出たか教えていただけませんか

どこか1列を使います。
そこに
=RAND()
と入れて、問題の行数分コピーします。

このRANDという関数は、再計算（[F9]キー）する度に毎回違った数（乱数）を出力するものです。

再計算した後、この関数を入れた列で並び替え（[データ]→[並べ替え]）をすれば、順序がランダムで並び変わります。
並べ替えの結果、上位25問を、まとめテストにするというのはいかがでしょうか？

過去問のシート名を”過去問”とします。またA列は重複のない数字とします

その前提で以下のマクロを実行してみてください

Option Explicit
Sub 問題作成()
Dim i, j, k, l, NumMAX, IntRND As Integer
Dim NO(25)
Dim SHname As Worksheet
i = 0
IntRND = Rnd(0)
NumMAX = Application.Max(Worksheets("過去問").Range("A:A"))
For Each SHname In Worksheets
If SHname.Name = "新問題" Then
i = 1
End If
Next
If i = 0 Then
Worksheets.Add.Name = "新問題"
Else
Worksheets("新問題").Range("a1:C100").ClearContents
End If

Worksheets("新問題").Range("B1") = "問題１～５"
Worksheets("新問題").Range("C1") = "なまえ"
NO(1) = 0
j = 1
Do
IntRND = Int((Rnd(Now()) * 1062347) Mod NumMAX) + 1
For i = 1 To j
If NO(i) = IntRND Then
i = 9999
End If
Next i
If i < 9999 Then
NO(j) = IntRND
j = j + 1
End If
Loop Until j > 25

For l = 2 To 26
Worksheets("新問題").Cells(l, 1) = NO(l - 1)
k = Application.Match(NO(l - 1), Worksheets("過去問").Range("A1:A2000"), 0)
Worksheets("新問題").Cells(l, 2) = Worksheets("過去問").Cells(k, 2)
Worksheets("新問題").Cells(l, 3) = Worksheets("過去問").Cells(k, 3)
Next
End Sub

＃０２です。一番簡単そうな方法で説明します。

過去の問題が登録されているBOOKを開いて、ツール→マクロ→新しいマクロの記録　を選びます。「マクロの記録」といウィンドウはそのままＯＫでよいです。

次にツール→マクロ→記録終了　を選びます。これで（見えませんが）標準モジュールシートが作成されました。次にそのシートを表示させます。そのためには　Aｌｔ＋Ｆ１１　を押下します。

すると　「Sub Macro1()　・・以下省略」のような、今記録したマクロが表示されているはずです。この１行目のSub Macro1()の上に＃０２のマクロ全文をペーストしてください。（Option Explicitが先頭行になるように）

元の問題文のシートに戻り、シート名を”過去問”に変更して、Alt+f8 を押下すると、実行可能なマクロのリストが表示されますから、その中から”問題作成”を選んで「実行」ボタンをクリックしてみてください。

なお＃０２のマクロは夜中に急いで作ったので、美しくありません（→言い訳です）
A列の番号は途中の行が空白でも良いですが、最小値は１で抜け番がないことが前提となっていますのでお気をつけください。抜け番があると
k = Application.Match(NO(l - 1), Worksheets("過去問").Range("A1:A2000"), 0)
の行でエラーとなる場合があります。

過去問（第６回以降）を行の末尾に追加してもマクロは動作するはずです。