Is your checkbox named ckLasik and is your bookmark named bmCourse? Put a stop statement in the code and execute it. When you reach the stop, step through using the F8 key and see if you can determine what is not working:
Code:
Dim oCtr As Control
Dim oRng As Word.Range
For Each oCtr In Me.Controls
Select Case TypeName(oCtr)
Stop 'Added stop statement.
Case "Checkbox"
Select Case oCtr.Name
Case "ckLasik"
If Controls(oCtr.Name).Value = True Then
Set oRng = ActiveDocument.Bookmarks("bmCourse").Range
oRng.Text = "CheckBox1 is Checked"
ActiveDocument.Bookmarks.Add "bmCourse", oRng
End If
End Select
End Select
Next oCtr