construct range?

I have a single cell range named StartRange.
I would like to construct a multi-cell range named TestRange.
The first cell of TestRange would be StartRange and the last cell of
TestRange would be StartRange.Row + RowInteger, StartRange.Column +
ColumnInteger

Dim StartRange As Range
Dim TestRange As Range
Dim RowInteger As Integer
Dim ColumnInteger As Integer

Set StartRange ActiveCell
RowInteger = 4
ColumnInteger = 5

'Doesn't work
Set TestRange = Range(StartRange,
Range(StartRange).Item(RowInteger,ColumnInteger))

Please help
Thanks Jeff Higgins

Try something like

set TestRange=Union(StartRange, AnotherRange)

Tim.


"Jeff Higgins" <[email protected]> wrote in
message news:[email protected]...
>I have a single cell range named StartRange.
> I would like to construct a multi-cell range named TestRange.
> The first cell of TestRange would be StartRange and the last cell of
> TestRange would be StartRange.Row + RowInteger, StartRange.Column +
> ColumnInteger
>
> Dim StartRange As Range
> Dim TestRange As Range
> Dim RowInteger As Integer
> Dim ColumnInteger As Integer
>
> Set StartRange ActiveCell
> RowInteger = 4
> ColumnInteger = 5
>
> 'Doesn't work
> Set TestRange = Range(StartRange,
> Range(StartRange).Item(RowInteger,ColumnInteger))
>
> Please help
> Thanks Jeff Higgins

Dim StartRange As Range
Dim RowInteger As Integer
Dim ColumnInteger As Integer
Dim TestRange As Range

Set StartRange ActiveCell
RowInteger = 4
ColumnInteger = 5

'Does work but seems convoluted
Set TestRange = Range(StartRange.Address, _
Application.Cells(StartRange.Row + RowInteger, _
StartRange.Column + ColumnInteger).Address))

"Jeff Higgins" wrote:

> I have a single cell range named StartRange.
> I would like to construct a multi-cell range named TestRange.
> The first cell of TestRange would be StartRange and the last cell of
> TestRange would be StartRange.Row + RowInteger, StartRange.Column +
> ColumnInteger
>
> Dim StartRange As Range
> Dim TestRange As Range
> Dim RowInteger As Integer
> Dim ColumnInteger As Integer
>
> Set StartRange ActiveCell
> RowInteger = 4
> ColumnInteger = 5
>
> 'Doesn't work
> Set TestRange = Range(StartRange,
> Range(StartRange).Item(RowInteger,ColumnInteger))
>
> Please help
> Thanks Jeff Higgins

Maybe

Set TestRange = Range(ActiveCell,
ActiveCell.offset(RowInteger,ColumnInteger))

I'm not exactly sure what range you're trying to obtain, but this
would give you a rectangular range with the activecell being topleft,
and the bottom right cell being RowInteger cells down and
Columninteger cells to the right.

Tim



"Jeff Higgins" <[email protected]> wrote in
message news:[email protected]...
> Dim StartRange As Range
> Dim RowInteger As Integer
> Dim ColumnInteger As Integer
> Dim TestRange As Range
>
> Set StartRange ActiveCell
> RowInteger = 4
> ColumnInteger = 5
>
> 'Does work but seems convoluted
> Set TestRange = Range(StartRange.Address, _
> Application.Cells(StartRange.Row + RowInteger, _
> StartRange.Column + ColumnInteger).Address))
>
> "Jeff Higgins" wrote:
>
>> I have a single cell range named StartRange.
>> I would like to construct a multi-cell range named TestRange.
>> The first cell of TestRange would be StartRange and the last cell
>> of
>> TestRange would be StartRange.Row + RowInteger, StartRange.Column +
>> ColumnInteger
>>
>> Dim StartRange As Range
>> Dim TestRange As Range
>> Dim RowInteger As Integer
>> Dim ColumnInteger As Integer
>>
>> Set StartRange ActiveCell
>> RowInteger = 4
>> ColumnInteger = 5
>>
>> 'Doesn't work
>> Set TestRange = Range(StartRange,
>> Range(StartRange).Item(RowInteger,ColumnInteger))
>>
>> Please help
>> Thanks Jeff Higgins

Tim,
yes, the range I have been seeking is as you say.
offset method, of course!!!
Thanks for your help, much appreciated.
Jeff

"Tim Williams" wrote:

> Maybe
>
> Set TestRange = Range(ActiveCell,
> ActiveCell.offset(RowInteger,ColumnInteger))
>
> I'm not exactly sure what range you're trying to obtain, but this
> would give you a rectangular range with the activecell being topleft,
> and the bottom right cell being RowInteger cells down and
> Columninteger cells to the right.
>
> Tim