Selecting a Cell & Range

[KNKN9]

Hi and Thanks in advanced.

I am trying to select the cell P10 and the last col as set as my range below.
but I receive the error 'Application defined - object error'
I have the code below:

Sub time_trans()Dim last_col As Range
Set last_col = ActiveWorkbook.ActiveSheet.Range("p10").End(xlToRight).Offset(-1, 0)
Range("P10:P" & last_col).Select

Thanks.

 

[Rick Rothstein]

Hi and Thanks in advanced.

I am trying to select the cell P10 and the last col as set as my range below.
but I receive the error 'Application defined - object error'
I have the code below:

Sub time_trans()Dim last_col As Range
Set last_col = ActiveWorkbook.ActiveSheet.Range("p10").End(xlToRight).Offset(-1, 0)
Range("P10:P" & last_col).Select

The last_col variable is a Range... you cannot concatenate a range onto a text string. On top of that, you are trying to use last_col in the row location for the range. Try it like this instead...

Range("P10", last_col).Select

 

[Fluff]

How about

Sub time_trans()

Dim last_col As Long
last_col = ActiveWorkbook.ActiveSheet.Range("p10").End(xlToRight).Column
Range("P10", Cells(10, last_col)).Select
End Sub

 

[KNKN9]

Thank you for your response.
I still receive the same error message

 

[Fluff]

Are you referring to Rick's solution, or mine?

 

[KNKN9]

Yours sorry Fluff

 

[Fluff]

Which line gives the error?
With your code I get a "Range of object Global failed" error, rather than the "Application defined - object error" you are reporting.

 

[KNKN9]

I receive the error with this code

[COLOR=#333333]Range("P10", Cells(10, last_col)).Select
[/COLOR]

Which line gives the error?

With your code I get a "Range of object Global failed" error, rather than the "Application defined - object error" you are reporting.

 

[Fluff]

Is the sheet protected?
Also do you have any merged cells?

 

[KNKN9]

Yes there are merged cells. Is this what is causing the issue?

Is the sheet protected?
Also do you have any merged cells?