a bit simpler perhaps
x=Worksheets("sheet2").Range("a1:h13").Find("date" ).Address
End With


--
Don Guillett
SalesAid Software

"Arne Hegefors" wrote in message
...
I search parts of a spreadsheet for certain words etc. My code looks like:

Set searchRange = Range(Cells(rng5.Row, 1), Cells(rng5.Row, 100))
Set rng2 = Worksheets("Beräkning").Range(searchRange.Address) .Find("Date",
LookIn:=xlValues)

and this works fine. I just wonder is it not possible to write the code in
a
shorter way by writing something like eg.

Set rng2 = Worksheets("Beräkning").searchRange.Find("Date",
LookIn:=xlValues)

It does not work for me when I write it like that. what am i doing wrong?
Thanks