Reference to Columns
 

Hi , I am using the next line :

ActiveWorkbook.Worksheets("A").Columns((ConvertToL etter(inicol)) & ":" &
msConvertToLetter(endcol)).Select

Does exist some way for using only the Column Number ? I would prefer don´t
use the function ConvertToLetter.

Thank you in advance.

Reference to Columns
 

ActiveWorkbook.Worksheets("A").Columns((ConvertToL etter(inicol)) & ":" &
msConvertToLetter(endcol)).Select

Does exist some way for using only the Column Number ? I would prefer
don´t
use the function ConvertToLetter.

Well, you could always do what ConvertToLetter does directly in your code...

ActiveWorkbook.Worksheets("A").Columns(Chr(IniCol + 64) & ":" & Chr(EndCol +
64)).Select

Rick

Reference to Columns
 

ActiveWorkbook.Worksheets("A").Columns((ConvertToL etter(inicol)) & ":" &
msConvertToLetter(endcol)).Select

You could do it this way:

ActiveWorkbook.Worksheets("A").Range(Cells(1, inicol), Cells(65536,
endcol).Select

"Angeles" wrote:

Hi , I am using the next line :

ActiveWorkbook.Worksheets("A").Columns((ConvertToL etter(inicol)) & ":" &
msConvertToLetter(endcol)).Select

Does exist some way for using only the Column Number ? I would prefer don´t
use the function ConvertToLetter.

Thank you in advance.

Reference to Columns
 

ActiveWorkbook.Worksheets("A").Columns((ConvertToL etter(inicol)) & ":" &
msConvertToLetter(endcol)).Select

Does exist some way for using only the Column Number ? I would prefer
don´t
use the function ConvertToLetter.

Well, you could always do what ConvertToLetter does directly in your
code...

ActiveWorkbook.Worksheets("A").Columns(Chr(IniCol + 64) & ":" & Chr(EndCol
+ 64)).Select

I can't help feeling there is a more direct method that I am simply
overlooking; but, anyway, here is another way to do it...

ActiveWorkbook.Worksheets("A").Columns(IniCol).Res ize(Rows.Count, EndCol -
IniCol).Select

Rick

Reference to Columns
 

Range(Columns(2), Columns(10)).Select

Mike F
"Angeles" wrote in message
...
Hi , I am using the next line :

ActiveWorkbook.Worksheets("A").Columns((ConvertToL etter(inicol)) & ":" &
msConvertToLetter(endcol)).Select

Does exist some way for using only the Column Number ? I would prefer
don´t
use the function ConvertToLetter.

Thank you in advance.

Reference to Columns
 

ActiveWorkbook.Worksheets("A").Columns(IniCol).Res ize(Rows.Count, EndCol -
IniCol).Select

I forgot the +1...

ActiveWorkbook.Worksheets("Sheet1").Columns(IniCol ).Resize(Rows.Count,
EndCol - IniCol + 1).Select

Rick

Reference to Columns
 

Using your variables Dimmed As Long:

Range(Columns(inicol), Columns(endcol)).Select

Mike F
"Mike Fogleman" wrote in message
...
Range(Columns(2), Columns(10)).Select

Mike F
"Angeles" wrote in message
...
Hi , I am using the next line :

ActiveWorkbook.Worksheets("A").Columns((ConvertToL etter(inicol)) & ":" &
msConvertToLetter(endcol)).Select

Does exist some way for using only the Column Number ? I would prefer
don´t
use the function ConvertToLetter.

Thank you in advance.

Reference to Columns
 

See my responses Rick.

Mike Fogleman
"Rick Rothstein (MVP - VB)" wrote in
message ...
ActiveWorkbook.Worksheets("A").Columns((ConvertToL etter(inicol)) & ":" &
msConvertToLetter(endcol)).Select

Does exist some way for using only the Column Number ? I would prefer
don´t
use the function ConvertToLetter.

Well, you could always do what ConvertToLetter does directly in your
code...

ActiveWorkbook.Worksheets("A").Columns(Chr(IniCol + 64) & ":" &
Chr(EndCol + 64)).Select

I can't help feeling there is a more direct method that I am simply
overlooking; but, anyway, here is another way to do it...

ActiveWorkbook.Worksheets("A").Columns(IniCol).Res ize(Rows.Count, EndCol -
IniCol).Select

Rick

Reference to Columns
 

Thanks... see, I knew I was missing something obvious.

Rick

"Mike Fogleman" wrote in message
m...
See my responses Rick.

Mike Fogleman
"Rick Rothstein (MVP - VB)" wrote in
message ...
ActiveWorkbook.Worksheets("A").Columns((ConvertToL etter(inicol)) & ":"
&
msConvertToLetter(endcol)).Select

Does exist some way for using only the Column Number ? I would prefer
don´t
use the function ConvertToLetter.

Well, you could always do what ConvertToLetter does directly in your
code...

ActiveWorkbook.Worksheets("A").Columns(Chr(IniCol + 64) & ":" &
Chr(EndCol + 64)).Select

I can't help feeling there is a more direct method that I am simply
overlooking; but, anyway, here is another way to do it...

ActiveWorkbook.Worksheets("A").Columns(IniCol).Res ize(Rows.Count,
EndCol - IniCol).Select

Rick