엑셀VBA 빈칸이 아닌 부분만 UNION으로 회색으로 변경

Sub CHA_Color_Gray() ' 테두리ㅡ셀색ㅡ회색 매크로 'Application.ScreenUpdating = False Dim rngK As Range Dim rngU As Range          For Each rngK In Selection         If rngK <> "" Then             If rngU Is Nothing Then                 Set rngU = rngK             Else                 Set rngU = Union(rngU, rngK)             End If             rngU.Select         Else         End If     Next         With rngU.Interior                 '.Pattern = xlSolid                 .PatternColorIndex = xlAutomatic                 '.ThemeColor = xlThemeColorDark1                 .TintAndShade = -0.149998474074526                 '.PatternTintAndShade = 0         End With     'Application.ScreenUpdating = True End Sub