Excel - Mensaje

MI consulta es si al cumplirse un valor, este envie un mensaje, que ya se cumplio tal numero o sea :

EJ: si tengo una columna con numeros y la suma de todos estos numero me de 100 que ve avise que llego a 100.Bueno el mensaje uno lo puede modificar para que aparesca cualquier cosa, pero la idea es que envie un mensaje.

Por fa quien pude ayudarme.

aunque no es lo mismo, puedes usar Formato condicional y colocar
fórmula =SUMA(A1:A10)=100 y elegir un formato...

Saludos desde Baires, JuanC

Te dejo este procedimiento para que resulvas la situación.

***************************************************************************************

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Result As Integer
Result = WorksheetFunction.Sum(Range(ActiveCell.Offset(-1, 0), ActiveCell.Offset(-1, 0).End(xlUp)))
If Result >= 100 Then
MsgBox "El resultado es " & Result & ".", vbInformation, "SUMA >= 100"
End If
End Sub

***************************************************************************************
***** Nota: Selecciona la última celda que tiene valor de la columna y presiona "Enter".

Saludos,
Fernando

Ocupa este procedimiento que tiene una validación extra.

******************************************************************************************

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Result As Integer
Result = WorksheetFunction.Sum(Range(ActiveCell.Offset(-1, 0), ActiveCell.Offset(-1, 0).End(xlUp)))
If ActiveCell = Empty And ActiveCell.Offset(-1, 0).Value <> Empty And Result >= 100 Then
MsgBox "El resultado es " & Result & ".", vbInformation, "SUMA >= 100"
End If
End Sub

******************************************************************************************

Saludos,
Fernando