엑셀 VBA 비어있지 않을 셀 회색처리

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