Thanks to all. This kind of response is terrific!

"Tom Ogilvy" wrote in message
...
Dim rng as Range, rng1 as Range
Dim res as Variant, lRow as long
set rng = Range("A1:A1000")
res = Application.Match("Summary",rng,0)
if not iserror(res) then
set rng1 = rng(res)
lRow = rng1.Row
cells(lRow,20).Value = "a Value"
End If

--
Regards,
Tom Ogilvy

"myleslawrence" wrote in message
...
Can anyone tell me how I can I put a value in cell $row$20 where row is
the
row with "Summary" in the first column and the column is 20