That probably won't work. Sheet1 more than likely has question text,
not just question-space-number.

Try this macro instead...

Public Sub CorrectAnswers()
Application.ScreenUpdating = False
Dim I As Long, J As Long
Do While I < WorksheetFunction.CountIf(Worksheets(1).Range("B:B "),
"+")
J = J + 1
If Worksheets(1).Range("B" & J).Value = "+" Then
I = I + 1
Worksheets(2).Range("A" & I).Value = _
"'" & I & " " & Left(Worksheets(1).Range("A" & J).Value, 1)
End If
Loop
End Sub

Ken Johnson