ExcelVBAの質問なんですが

Question

VBAを使ってクイズソフトを作成しようとしているのですが、
Private Sub CommandButton10_Click()
Dim i As String
Dim x As String
Dim y As String

一つ目
If UserForm1.CheckBox4.Value Then
With Worksheets("Sheet2").Range("A1:A26")
i = Application.RandBetween(A1, .Count)
UserForm2.Label6.Caption = .Cells(i).Value
Label7.Caption = "危険物に関する法令"
End With
End If

二つ目
If UserForm1.CheckBox5.Value Then
With Worksheets("Sheet2").Range("A27:A40")
x = Application.RandBetween(27, .Count)
UserForm2.Label6.Caption = .Cells(x).Value
Label7.Caption = "基礎的な物理及び基礎的な化学"
End With
End If

というボタンを押すとラベルにセルに入ってる文章をランダムで表示させようとしているのですが、一つ目のCheckBox4のところは上手くいってるのですが、２つめのCheckBox5のところが、型が一致しませんというエラーがでてきてできません。
多分、セルに入ってる文字を一つ目は英字、２つめのプログラムで参照するセルに入ってるのは数字にしたので、そこでなんらかのミスが起きてると思うのですが、どうなんでしょうか？

Answer 1

WorksheetFunction.RandBetween メソッド (Excel)

上記のヘルプを参照してください。
第一引数は最小値、第二引数は最大値 と説明があります。

Application.RandBetween(27, .Count)
だと、.Count は Range("A27:A40") の行数(14)になりますので最小値 > 最大値 をなり、エラーになります。

ここまで説明すればあとは分かりますね。