Sub SumujKolorowe()
    Dim Kom As Range
    Dim Wynik As Double
    Dim Nic As String
    For Each Kom In Selection
        If Kom.Interior.ColorIndex <> xlNone Then
            Wynik = Wynik + Kom.Value
        End If
    Next
    Nic = _
        InputBox("W polu poniżej jest suma wartości znalezionych w kolorowych komórkach :)" _
        & vbNewLine & _
        "Możesz skopiować ten wynik (Ctrl+C) aby później go gdzieś wkleić", , Wynik)
End Sub

Sub SumujKolorowe() Dim Kom As Range Dim Wynik As Double Dim Nic As String For Each Kom In Selection If Kom.Interior.ColorIndex <> xlNone Then Wynik = Wynik + Kom.Value End If Next Nic = _ InputBox("W polu poniżej jest suma wartości znalezionych w kolorowych komórkach :)" _ & vbNewLine & _ "Możesz skopiować ten wynik (Ctrl+C) aby później go gdzieś wkleić", , Wynik) End Sub