This code finds the cell and sets the range TheRng as you want. HTH
Otto
Set temp_range = Worksheets("Template").Cells.Find(What:="Sum. Table",
LookAt:=xlWhole)
Set TheRng = temp_range.Resize(4,3)

"botha822" wrote in
message ...

Dim temp_range As Range

Set temp_range = Worksheets("Template").Cells.Find(Value:="Sum. Table",
_
SearchOrder:=xlByRows)

When i run this in a subroutine I get this error:
"Named arguement not found."

All I want to do is locate the cell with the value="Sum. Table" and
figure out its address so I can assign it as the beginning of a
continuous range that is 3 cells wide and 4 cells deep.


--
botha822
------------------------------------------------------------------------
botha822's Profile:
http://www.excelforum.com/member.php...o&userid=36752
View this thread: http://www.excelforum.com/showthread...hreadid=570094