Range syntax

How come this piece of code does not work?

Dim Headers As Range
Set Headers = Range(Cells(ImNavigateRow - 1, 2), Cells(ImNavigateRow - 1,
2).End(xlToRight).Column)

I get an: Method 'Range' of object '_worksheet' failed error.

Can anyone correct this for me?
Thanks
The Doctor

Perhaps this is what you are trying to do?
Set Headers = Range(Cells(ImNavigateRow - 1, 2), Cells(ImNavigateRow - 1,
Cells(ImNavigateRow-1,2).End(xlToRight).Column))

"Dr.Schwartz" wrote:

> How come this piece of code does not work?
>
> Dim Headers As Range
> Set Headers = Range(Cells(ImNavigateRow - 1, 2), Cells(ImNavigateRow - 1,
> 2).End(xlToRight).Column)
>
> I get an: Method 'Range' of object '_worksheet' failed error.
>
> Can anyone correct this for me?
> Thanks
> The Doctor

Hi Dr. Schwartz,

Try:

Set Headers = Range(Cells(ImNavigateRow - 1, 2), _
Cells(ImNavigateRow - 1, 2).End(xlToRight))


---
Regards,
Norman



"Dr.Schwartz" <[email protected]> wrote in message
news:[email protected]...
> How come this piece of code does not work?
>
> Dim Headers As Range
> Set Headers = Range(Cells(ImNavigateRow - 1, 2), Cells(ImNavigateRow - 1,
> 2).End(xlToRight).Column)
>
> I get an: Method 'Range' of object '_worksheet' failed error.
>
> Can anyone correct this for me?
> Thanks
> The Doctor

Yes thank you it works, but I think I'm going to use Norman's solution (is't
shorter)

"K Dales" wrote:

> Perhaps this is what you are trying to do?
> Set Headers = Range(Cells(ImNavigateRow - 1, 2), Cells(ImNavigateRow - 1,
> Cells(ImNavigateRow-1,2).End(xlToRight).Column))
>
> "Dr.Schwartz" wrote:
>
> > How come this piece of code does not work?
> >
> > Dim Headers As Range
> > Set Headers = Range(Cells(ImNavigateRow - 1, 2), Cells(ImNavigateRow - 1,
> > 2).End(xlToRight).Column)
> >
> > I get an: Method 'Range' of object '_worksheet' failed error.
> >
> > Can anyone correct this for me?
> > Thanks
> > The Doctor

As always (2 for 2) you deliver, thank you Norman.

"Norman Jones" wrote:

> Hi Dr. Schwartz,
>
> Try:
>
> Set Headers = Range(Cells(ImNavigateRow - 1, 2), _
> Cells(ImNavigateRow - 1, 2).End(xlToRight))
>
>
> ---
> Regards,
> Norman
>
>
>
> "Dr.Schwartz" <[email protected]> wrote in message
> news:[email protected]...
> > How come this piece of code does not work?
> >
> > Dim Headers As Range
> > Set Headers = Range(Cells(ImNavigateRow - 1, 2), Cells(ImNavigateRow - 1,
> > 2).End(xlToRight).Column)
> >
> > I get an: Method 'Range' of object '_worksheet' failed error.
> >
> > Can anyone correct this for me?
> > Thanks
> > The Doctor
>
>
>