as shown:

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

this does nothing.

You would need

Range("B4").Offset(val1,0).Resize(296-val1,5).Select

or

Range("B4").Offset(val1,0).Resize(296-val1,5).Interior.ColorIndex = 3

as examples - what you want would depend on what you are trying to do.

also, if that isn't the problem, then the problem is probably the value of
Val1. If it creates an illegal reference, then you would get an error.

--
Regards,
Tom Ogilvy



"Grace" wrote in message
...
With regard to my last post in this thread, I think I figured out the last
two queries. I still need to know what is wrong with the resize command.
That's it.

G

"Grace" wrote in message
...
Bob (or anyone),

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

The command above is showing in red when I cut and pasted it in, as I
did
with your val1 definition. Could there be some syntax wrong? Also, you
forgot to answer the last two queries in my e-mail.

Thanks so much for your fine help.
G
.
"Bob Phillips" wrote in message
...


--

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