엑셀VBA 여러 열을 합집합으로 만들어 한번에 숨김, 열 너비 자동맞춤

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngTest As Range
On Error Resume Next
 
Set rngTest = Application.Intersect(Me.Range("L8"), Target)
On Error GoTo 0
If Not rngTest Is Nothing Then
반별출력ㅡ기본반나타나기
 
Range("BH10:CZ10").EntireColumn.AutoFit
 
Dim rngD As Range
 
For kk = 1 To 45
 
    If Range("BH10:CZ10").Cells(1, kk) = 7 Then
        If rngD Is Nothing Then
            Set rngD = Range("BH10:CZ10").Cells(1, kk)
        Else
            Set rngD = Union(rngD, Range("BH10:CZ10").Cells(1, kk))
        End If
    Else
    End If
 
Next kk
 
rngD.EntireColumn.Hidden = True
 
End If
 
    ActiveWindow.ScrollColumn = 1
    
    
End Sub