I'm running this macro on word ( there's more to it, like defining oExcel and
so on) and it works fine.

Dim SLOC As String

SLOC = 103810

Dim counter As Integer

For counter = 1 To 10000 Step 1

Selection = osheet.Range("D" & counter) ' Assumes SLOC is on column D

If Selection = SLOC Then

Call fillin

End If

Next counter

The only problem is that when it finds something on column D it writes it to
wherever the cursor is on the word document. This is not ideal.

Is there any way around this, i.e. a way for the macro not to write the
contents of the cell on the word document?

TIA