Use this if you want to insert an entire row.

Sheets("WTB").Rows(Range("rgWTBaEnd").Row).Resize( intAInsert).EntireRow.Insert

Or if you want to insert rows into the range only then:

Sheets("WTB").Rows(Range("rgWTBaEnd").Row).Resize( intAInsert).Insert

Hope this helps! If so, let me know, click "YES" below.
--
Cheers,
Ryan


"Robin" wrote:

Hello Ryan H,

After trying the above responses to no avail, I've now tried yours an I get
Run Time Error 424 - Object Required. I replaced "Sheet 1" in your example
with "WTB" (the name of the worksheet that has range rgWTBaEnd on it.) Three
tries, three misses. I'm feeling a bit dumb. But you now understand why I
"Titled" my post as I did! :)

Thank you,
Robin

"Ryan H" wrote:

This is what I use. Hope this helps! If so, let me know, click "YES" below.

' adds new rows for new data
Sheets("Sheet1").Rows(rgWTBaEnd.Row).Resize(intAIn sert).EntireRow.Insert


--
Cheers,
Ryan


"Robin" wrote:

I'm pretty good with Access VBA but new to Excel.
Isn't there a simple way to go to a cell and insert x number of rows based
on an integer variable.

The cell I want to go to is rgWTBaEnd and the number of rows I wnat to
insert is intAInsert.

I can't believe one must do what I'm seeing in this discussion group for
something that simple. Help me please.

Thanks,
Robin