Below is a snippet of code that finds the first empty column and pastes
information down the column. I want to select the newly pasted range for
editting. The last line does in fact select the proper range of cells after
pasting, but results in the following error message:

Run-time error "1004":
Method 'range' of object '_global' failed

Worksheets("Aggregates").Select
Range("A3").End(xlToRight).Offset(0, 1).Select
ActiveSheet.Paste
Range(ActiveCell.Address & ActiveCell.End(xlUp)).Select

Any help appreciated,
--
Jim T

Perhaps...

Range(ActiveCell, ActiveCell.End(xlUp)).Select
--
HTH...

Jim Thomlinson


"Jim Tibbetts" wrote:

Below is a snippet of code that finds the first empty column and pastes
information down the column. I want to select the newly pasted range for
editting. The last line does in fact select the proper range of cells after
pasting, but results in the following error message:

Run-time error "1004":
Method 'range' of object '_global' failed

Worksheets("Aggregates").Select
Range("A3").End(xlToRight).Offset(0, 1).Select
ActiveSheet.Paste
Range(ActiveCell.Address & ActiveCell.End(xlUp)).Select

Any help appreciated,
--
Jim T

Once you paste the content, the newly pasted range is already selected. So
you don't really need the last line.

HTH,
Paul

"Jim Tibbetts" wrote in message
...
Below is a snippet of code that finds the first empty column and pastes
information down the column. I want to select the newly pasted range for
editting. The last line does in fact select the proper range of cells
after
pasting, but results in the following error message:

Run-time error "1004":
Method 'range' of object '_global' failed

Worksheets("Aggregates").Select
Range("A3").End(xlToRight).Offset(0, 1).Select
ActiveSheet.Paste
Range(ActiveCell.Address & ActiveCell.End(xlUp)).Select

Any help appreciated,
--
Jim T

Additionally, only if I change the code to reference Range("A1") instead of
A3, do I get the error you are stating. Otherwise, I don't get the error,
but the pasted range is not selected.


"PCLIVE" wrote in message
...
Once you paste the content, the newly pasted range is already selected.
So you don't really need the last line.

HTH,
Paul

"Jim Tibbetts" wrote in message
...
Below is a snippet of code that finds the first empty column and pastes
information down the column. I want to select the newly pasted range for
editting. The last line does in fact select the proper range of cells
after
pasting, but results in the following error message:

Run-time error "1004":
Method 'range' of object '_global' failed

Worksheets("Aggregates").Select
Range("A3").End(xlToRight).Offset(0, 1).Select
ActiveSheet.Paste
Range(ActiveCell.Address & ActiveCell.End(xlUp)).Select

Any help appreciated,
--
Jim T

Jim - Thanks for the reply. Making your change resulted in only the first
cell in the column being selected. PCLIVE's answer was correct. The range of
cells I wanted to select was already selected when I pasted the information.
--
Jim T


"Jim Thomlinson" wrote:

Perhaps...

Range(ActiveCell, ActiveCell.End(xlUp)).Select
--
HTH...

Jim Thomlinson


"Jim Tibbetts" wrote:

Below is a snippet of code that finds the first empty column and pastes
information down the column. I want to select the newly pasted range for
editting. The last line does in fact select the proper range of cells after
pasting, but results in the following error message:

Run-time error "1004":
Method 'range' of object '_global' failed

Worksheets("Aggregates").Select
Range("A3").End(xlToRight).Offset(0, 1).Select
ActiveSheet.Paste
Range(ActiveCell.Address & ActiveCell.End(xlUp)).Select

Any help appreciated,
--
Jim T

PCLIVE - Thanks for the help. You are correct. The range I was trying to
select was already selected from the Paste. Maybe why I was getting the error
message?Thanks for pointing that out.
--
Jim T


"PCLIVE" wrote:

Once you paste the content, the newly pasted range is already selected. So
you don't really need the last line.

HTH,
Paul

"Jim Tibbetts" wrote in message
...
Below is a snippet of code that finds the first empty column and pastes
information down the column. I want to select the newly pasted range for
editting. The last line does in fact select the proper range of cells
after
pasting, but results in the following error message:

Run-time error "1004":
Method 'range' of object '_global' failed

Worksheets("Aggregates").Select
Range("A3").End(xlToRight).Offset(0, 1).Select
ActiveSheet.Paste
Range(ActiveCell.Address & ActiveCell.End(xlUp)).Select

Any help appreciated,
--
Jim T