Funktion in extra fenster/box anzeigen

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngZelle As Range
Const Multiplikator1 As Currency = 13
Const Multiplikator2 As Currency = 42
Const Multiplikator3 As Currency = 14
Application.EnableEvents = False
For Each rngZelle In Target
If Not Intersect(rngZelle, Range("B5:M5, B8:M8, B11:M11")) Is Nothing And IsNumeric( _
rngZelle) And rngZelle > 0 Then
rngZelle = CCur(rngZelle * Multiplikator1)
End If
If Not Intersect(rngZelle, Range("B6:M6, B9:M9, B12:M12")) Is Nothing And IsNumeric( _
rngZelle) And rngZelle > 0 Then
rngZelle = CCur(rngZelle * Multiplikator2)
End If
If Not Intersect(rngZelle, Range("B7:M7, B10:M10,B13:M13")) Is Nothing And IsNumeric( _
rngZelle) And rngZelle > 0 Then
rngZelle = CCur(rngZelle * Multiplikator3)
End If
Next rngZelle
Application.EnableEvents = True
End Sub

ist es möglich, daß wenn ich mit dem curser über die zellen geh,mir der eingebene wert in einem kleinen fenster oder in einer anderen zelle angezeigt wird.
wenn ich also in der zelle B7 den wert 10 eingebe,wird dieser mit dem multiplikator 3 (wert 14) multipliziert.nun soll in einem extra kleinen fenster/box der wert 10 angezeigt...
danke