--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Grace" wrote in message
...
I am slowly learning to build macros, but I need a little help with a few
intermediate steps. Kindly tell me the code for the steps detailed below:

First, let's say that cells G10 and G11 of Sheet A are equations whose
values I will use in the macro (see below). How do I define those as
values
within the macro?


val1 = Range("G10").Value
val2 = Range("G11").Value

I will then go to a cell B4 of a worksheet called BOPSummary and then I
want
to move my cursor down in column B by the number of rows given by cell G10
above. What is the code for that?

Worksheets("BOPSummary").Activate
Range("B4").Offset(val1,0).Select

Starting at that cell location, I want to highlight an area that is (296
minus G10) rows down and then, also five more columns to the right (that
is,
to column G). How do I code that?

Worksheets("BOPSummary").Activate
Range("B4").Offset(val1,0).Resize(296-val1,5)

After doing some things that don't move the cursor, I then want to move
one
cell up and block off that cell plus five more cells to the right (to
column
G). How do I code that?

Activecell.Offset(-1,0).Resize(1,5).Select

After doing some things, I next want to highlight an area that is the
equivalent of holding down the shift key and then hitting the end key and
then the up arrow. How do I code that?

I then want to use that range to do a "set print area" and then a page
setup
and, for the number of pages, I want to use the value in that cell G11
above. How do I code that?

Thanks,
Grace