Makro do sumowania wartości z A1 do A2 z potwierdzeniem przyciskiem Tak/Nie

 Public Sub Dodaj()
Dim Wynik As Integer
Wynik = MsgBox("Czy dodać?", 4)
If Wynik = 6 Then
    Range("A2") = Range("A2") + Range("A1")
End If
End Sub {/code]

public Sub Dodaj()
Dim Wynik As Integer
Wynik = MsgBox("Czy dodać?", 4)
If Wynik = 6 Then
    Range("Arkusz2!A2") = Range("Arkusz2!A2") + Range("Arkusz1!A1")
End If
End Sub {/code]