Set Range on ThisWorkBook problem.

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Cesar Zapata - 31 Jan 2006 21:03 GMT

I get an error whe trying to set a range on the thisworkbook.range

dim lcolumn as string

lcolumn =
ThisWorkbook.Worksheets(2).Range("IV1").End(xlToLeft).Offset(0,
1).Column

Set myrange = Range(ThisWorkbook.Worksheets(2).Cells(1, 24),
ThisWorkbook.Worksheets(2).Cells(1, lcolumn))

TIA

CZ

Reply to this Message

Dave Peterson - 31 Jan 2006 22:35 GMT

First, lColumn should be a Long--or at least a number.

And second, when I changed that, your code worked ok.

> I get an error whe trying to set a range on the thisworkbook.range
>
[quoted text clipped - 10 lines]
>
> CZ

Signature

Dave Peterson

Reply to this Message