빨간 숫자만 추출

Function RedWord$(rngNum As Range)
 
    Dim rnG As Range
    Dim v$(), i%
    
    For Each rnG In rngNum  '지정한 영역을 순환
    
        If rnG.Font.Color = vbRed Then  '빨간색일 때 배열에 삽입
            
            ReDim Preserve v(i)
            v(i) = rnG
            i = i + 1
            
        End If
        
    Next rnG
    
    On Error GoTo j '빨간색이 없으면 배열에 에러가 나므로
        If LenB(v(0)) Then
            RedWord = Join(v, ", ") '숫자들을 콤마로 묶어서 출력
            Exit Function
        End If
    On Error GoTo 0
    
j:
    RedWord = "-"   '빨간색이 없을 땐 - 로 출력
 
End Function

OnlyRed.xlsm