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