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