求高手指点，红字哪里有问题

ssddhgst

Sub 出题()
    If Range("D2").Value = 0 Then

    提示 = MsgBox("请先输入准考证号")

    GoTo 重来

    End If

    '如果D2为空则弹出提示要求输入准考证号并直接跳到后面的"重来:"处。

　　Sheets("单选题").Range("A:D").Sort Key1:=Sheets("单选题").Range("D2"), Order1:=xlAscending,
　　Header:=xlGuess

　　Sheets("多选题").Range("A:D").Sort Key1:=Sheets("多选题").Range("D2"), Order1:=xlAscending,

　　Header:=xlGuess

　　Sheets("判断题").Range("A:D").Sort Key1:=Sheets("判断题").Range("D2"), Order1:=xlAscending,
　　Header:=xlGuess

    '这三行分别是对单选、多选和判断题工作表的A:D区域按D列随机数升序排序。

    Columns("B:B").Rows.AutoFit

    '对B列设置最适合行高，以完整显示题目。

    Range("D5").Select

    '定位到D5以便输入答案

    ActiveSheet.Shapes("出题按钮").Visible = False

    '隐藏出题按钮以防重复选题

    ActiveSheet.Shapes("评分按钮").Visible = True

    '显示评分按钮

重来:

End Sub