If that's really what you want to do

Sub printrng()
Range("a1:" & Cells.Find("corner").Address).PrintPreview
End Sub

--
Don Guillett
SalesAid Software

"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?