Excel97 - Syntax for Find, Offset, Insert Page
 

Within an Excel 97 sheet, I want to find all occurrences of a certain string
text. From each of these cells, I need to go down one row and left one cell,
and insert a page break. I am having trouble with the syntax to accomplish
this, particularly with what is needed to position me at the desired point
for the page insert.

Excel97 - Syntax for Find, Offset, Insert Page
 

Dim rng as Range
set rng = cells.Find("StringTarget")
if not rng is nothing then
sAddr = rng.Address
do
Activesheet.HPageBreaks.Add rng.offset(1,-1)
set rng = cells.findnext(rng)
loop while rng.Address < sAddr

Adjust to suit

--
Regards,
Tom Ogilvy


"djh" wrote in message
...
Within an Excel 97 sheet, I want to find all occurrences of a certain
string
text. From each of these cells, I need to go down one row and left one
cell,
and insert a page break. I am having trouble with the syntax to
accomplish
this, particularly with what is needed to position me at the desired point
for the page insert.

Excel97 - Syntax for Find, Offset, Insert Page
 

Tom,
Thank you very much. That was just what I needed to get me started on my
macros.
Debbie

"Tom Ogilvy" wrote:

Dim rng as Range
set rng = cells.Find("StringTarget")
if not rng is nothing then
sAddr = rng.Address
do
Activesheet.HPageBreaks.Add rng.offset(1,-1)
set rng = cells.findnext(rng)
loop while rng.Address < sAddr

Adjust to suit

--
Regards,
Tom Ogilvy


"djh" wrote in message
...
Within an Excel 97 sheet, I want to find all occurrences of a certain
string
text. From each of these cells, I need to go down one row and left one
cell,
and insert a page break. I am having trouble with the syntax to
accomplish
this, particularly with what is needed to position me at the desired point
for the page insert.