With Activesheet
set rng = .Cells.Find("corner")
if not rng is nothing then
.PageSetup.PrintArea = _
.Range(.Range("A1"),rng).Address(external:=True)
End if
End With

--
Regards,
Tom Ogilvy

"Paul H" wrote in message
...
I want to print a sheet with the upper left point being A1 with the bottom
right point variable. I could put a word in the cell (i.e. corner), I
need
a macro to look through the sheet and find the word "corner" this would
then
be used as the bottom right point for the print setup. Any ideas?