마지막 열까지 행 강조 표시

Question

내 열의 마지막 열까지 강조 표시하려면이 코드를 어떻게 적용 할 수 있습니까? 내 경우 엔 EntireRow가 아닌 ​​"J"입니까?

For Each wb In Workbooks 
    If wb.Name <> "Book1.xlsm" Then 
    wb.Activate 

    For Each ws In ActiveWorkbook.Worksheets 
     Set cl = ws.Cells.Find(What:=SearchString, _ 
     After:=ws.Cells(1, 1), _ 
     LookIn:=xlValues, _ 
     LookAt:=xlWhole, _ 
     SearchOrder:=xlByRows, _ 
     SearchDirection:=xlNext, _ 
     MatchCase:=False, _ 
     SearchFormat:=False) 
      If Not cl Is Nothing Then 
       FirstFound = cl.Address 
      Do 
        cl.EntireRow.Interior.ColorIndex = Cor 
       Set cl = ws.Cells.FindNext(After:=cl) 
     Loop Until FirstFound = cl.Address 
      End If 
    Next ‘ etc etc 

Answer 1

변경에
cl.EntireRow.Interior.ColorIndex = Cor
:
ws.Range("A" & cl.Row & ":J" & cl.row).Interior.ColorIndex = Cor