Mark,
For a "cleaned up" version, have a look at the following. It avoids the sheet activations etc. and can be run from when either workbook is active.
Option Explicit
Sub test()
Dim qsearch As String
Dim Cel As Range
Dim FirstAddress As String
Dim n As Integer
Dim QSheet As Worksheet, SSheet As Worksheet
Dim SRange As Range
Set SSheet = Workbooks("WBT.xls").Sheets("Sheet1")
Set SRange = SSheet.Range("B:B")
Set QSheet = Workbooks("CForm.xls").Sheets("Q")
For n = 69 To 110
With SRange
qsearch = QSheet.Range("L" & n).Value
Set Cel = .Find(What:=qsearch, LookIn:=xlValues, _
LookAt:=xlWhole, MatchCase:=False)
If Not Cel Is Nothing Then
FirstAddress = Cel.Address
Do
QSheet.Range("M" & n).Value = SSheet.Range(Cel.Address).Offset(1, 1)
Set Cel = .FindNext(Cel)
Loop While Not Cel Is Nothing And Cel.Address <> FirstAddress
End If
End With
Next n
End