変数として設定された2つの列間の強調表示

Question

1） "QTR"という単語を見つけようとしていて、このactivecell.columnを変数に設定しようとしています... 2）Ctrl +右を行います 3） activecell.columnを変数に追加します。これら2つの列間のすべての列を選択する必要があります。

Sub Column() 

    Dim cs As Range 'column start 
    Dim cst As Range ' column end 

    'Find 'QTR' 

    Cells.Find(What:="QTR", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ 
      xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ 
      , SearchFormat:=False).Activate 
    Set cs = ActiveCell.EntireColumn 

    'CTRL + Right Arrow 
    Selection.End(xlToRight).Select 

    Set cst = ActiveCell.EntireColumn 

'highlight all columns from cs column to cst column 
    Range(cs & cst).Select 



    End Sub 

これはnエラーの原因です。誰かが

Answer 1

が

Sub Column() 

Dim cs As Integer 'column start 
Dim cst As Integer ' column end 

'Find 'QTR' 

Cells.Find(What:="QTR", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ 
     xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ 
     , SearchFormat:=False).Activate 

cs = ActiveCell.Column 

'CTRL + Right Arrow 
Selection.End(xlToRight).Select 

cst = ActiveCell.Column 


Range(Cells.Columns(cs), Cells.Columns(cst)).Select 




End Sub 

を、それを働い助けることができるしてください